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Programas para la familia 


Una parte inicial de la obra se dedica al ámbito familiar. Los seis programas presentados llenan en la 
práctica las siguientes necesidades de aplicación: la gestión de las cuentas domésticas, los listines 
telefónicos y de direcciones, las recetas culinarias preferidas con las correspondientes características 
alimentarias y, finalmente, las informaciones sanitarias más útiles, 


Cálculos económicos 


Permite resolver de manera sencilla y rápida to- 
dos los cálculos de naturaleza económica que 
pueden ser de interés en el ámbito familiar. 

Una detallada y completa exposición de numero- 
sos ejemplos de aplicación sirve de guía para 
calcular el valor futuro de un capital, los intereses 
devengados, el rendimiento de una inversión fi- 
nanciera, los plazos de un crédito. 

"m Análisis del problema. Ejemplos de aplicación 
de los cálculos previstos por el programa: capita- 
lización a plazo fijo y con series de imposiciones, 
intereses devengados para una suma futura, du- 
ración de un capital con retiradas periódicas, cál- 
culo del valor actual, interés necesario. Diagra- 
mas de flujo y listados de las subrutinas de ges- 
tión de las máscaras de vídeo y de realización de 
los cálculos. Parametrización de las subrutinas. 


Gestión de la cuenta corriente bancaria 


El programa permite gestionar hasta cinco cuen- 
tas corrientes, abiertas en cinco bancos diferen- 
tes. Es posible registrar cada movimiento de ai- 
nero tanto de entrada como de salida, especifi- 
cando el motivo y la fecha de la operación. En 
cualquier momento, el ordenador puede propor- 
cionar en la pantalla un extracto actualizado de 
cada cuenta corriente abierta. 

m Descripción de las funciones realizadas. Ejem- 
plo de aplicación con cuentas en diversos ban- 
cos. Generación del sistema, creación del archi- 
vo de datos personales, introducción de los movi- 
mientos. Extracto de cuentas y saldos. Funciones 
de vencimiento y de capitalización de los intere- 
ses. Listados. Modificaciones y limitaciones. 


Balance familiar 
Un nuevo programa orientado a las aplicaciones 


económicas que interesan en el ámbito domésti- 
co. El ordenador personal mantiene bajo control 


la situación financiera familiar, distinguiendo las 
entradas y las salidas en base a su tipo. Cada 
operación está documentada con el nombre de la 
persona y con el destino de la suma, y al final «del 
mes se podrá tener un cuadro detallado del ba- 
lance doméstico. El programa puede presentar 
los gráficos correspondientes a la evolución de 
las entradas de dinero y de los gastos. 

"m Análisis del problema. Plan de cuentas, su 
creación y empleo. Movimientos (cobros y gas- 
tos). Situación del balance, comparación entre 
previsiones y situación. Estadística de gastos, 
gráficos de las evoluciones, selecciones por tipo 
de gasto. Diagramas de flujo y listados de las su- 
brutinas parametrizadas para la presentación de 
las evoluciones. 


El banco de datos doméstico 


Una secretaria dotada de una memoria infalible 
que se ocupa de encontrar los números de teléfo- 
no y de actualizar en pocos segundos el listín de 
direcciones personales. El programa puede 
adaptarse a cualquier aplicación que requiera el 
archivado y la búsqueda de datos, y podrá ser útil 
también para la actividad profesional. 
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am Generalización de los módulos para la gestión 
de ficheros (files) y máscaras vídeo. Aplicación a 
la creación de un listín telefónico. Directorio, crea- 
ción y gestión. Formatos de impresión para la 
preparación de las direcciones. Ordenado de los 
datos en memoria y disco. Ejemplos de aplica- 
ción de los módulos generalizados y problemáti- 
cas diversas. Menú de gestión integrada: listín, 
directorio, agenda. 


Recetario 


Un libro de cocina automatizado que ofrece la po- 
sibilidad de componer un menú en pocos segun- 
dos y de tener una presentación en el monitor de 
los pasos necesarios para la preparación de ca- 
da plato. Para cada receta, el programa presenta 
las características dietéticas del plato y calcula 
las cantidades en función del número de perso- 
nas. El empleo del programa no está limitado a un 
conjunto de recetas fijas: al ordenador se le pue- 
den suministrar ingredientes, dosis y preparacio- 
nes de nuevos manjares, que pueden reclamarse 
citando simplemente su nombre. Para completar 
el cuadro se ha previsto la posibilidad de contro- 
lar la propia dieta personal. 

m Análisis del problema. Estructura del progra- 
ma. Formato de los ficheros (files). Tablas de los 
alimentos; introducción, actualización y uso del 
recetario. Cálculo de las dosis y del contenido ca- 
lórico. Control de la dieta. Estructuración del ar- 
chivo de datos. Medidas y su periodicidad. Uso 
de las tablas de los alimentos para la selección 
en función de los contenidos. 


El médico en casa 
La primera sección de este programa permite 
memorizar las informaciones y direcciones nece- 


sarias. Además contiene una agenda que consti- 
tuye un recordatorio de las vacunaciones y de los 
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controles periódicos. Permite memorizar y actuali- 
zar los datos correspondientes al botiquín do- 
méstico, indicando los nombres de los fármacos 
que contiene, las fechas de caducidad, las indi- 
caciones y las contraindicaciones. El ordenador 
le recordará las prescripciones del médico, indi- 
cando horarios, dosis y nombres de los fármacos. 
La última parte está dedicada al control del creci- 
miento de los niños. Después de la introducción 
de unos pocos datos (peso, altura, edad, sexo), 
el ordenador proporciona una comparación con 
los valores medios. 

m Descripción general del procedimiento. Agen- 
da de vacunaciones, uso, estructura de los fiche- 
ros (files). Selecciones parametrizadas, búsque- 
da de datos. Base de datos médica, estructura- 
ción de los ficheros, método de búsqueda y se- 
lección. Ejemplos de aplicación. Factor de creci- 
miento. Conceptos de base. Tablas del creci- 
miento normal en función del sexo y de la edad. 
Estructuración de las subrutinas para el control 
del factor de crecimiento. Implantación de los da- 
tos de entrada para las medidas, ejemplos de 
aplicación. Gráficos del crecimiento comparado 
con los valores medios normales. 


Programas para el estudio 


La sección dedicada a la enseñanza contiene cinco programas que servirán como ayuda en la difícil 
misión de educar a los niños en las materias y en los temas tradicionalmente más ingratos. 
El aprendizaje de la ortografía del idioma que se desee, de la geografía y de la aritmética será atenta- 


mente controlado y guiado por el ordenador. 


Ortografía 


Un moderno programa de enseñanza que, a tra- 
vés de la presentación en el monitor de imágenes 
gráficas, ayuda al niño a aprender la grafía co- 
rrecta de los vocablos. El vocabulario disponible 
puede enriquecerse con nuevas voces, incre- 
mentando la complejidad de las mismas a medi- 
da que prosigue el estudio. Pueden insertarse vo- 
cablos pertenecientes a cualquier idioma: la aso- 
ciación entre escritura e imagen es uno de los 
mejores métodos para aprender idiomas. La in- 
troducción de los vocablos y de las imágenes 
gráficas está guiada por una adecuada sección 
del programa, gracias a la cual es posible crear 
para los niños el vocabulario que se desee. 

m Finalidad del programa y metodología utiliza- 
da. Programa en la versión con un solo texto. 
Descripción, límites, ejemplos de utilización en 
las traducciones a otros idiomas. Utilización en la 
comprobación ortográfica de los vocablos. Dia- 
grama de flujo, listados y ejemplos de aplicación. 
Programa en la versión gráfica, ilustración del mé- 
todo, análisis del programa. Aplicaciones. Subru- 
tinas gráficas para la generación de las pregun- 
tas y para la comprobación de las respuestas. 
Diagramas de flujo, listados y ejemplos de aplica- 
ción. Uso del procedimiento en función del grado 
de dificultad que se desee obtener, Implantacio- 
nes: módulo musical, su uso en las respuestas; 
generalización del módulo principal. 


Aritmética 


No existe un maestro más adecuado que el orde- 
nador para ilustrar el significado y la importancia 
de las operaciones aritméticas fundamentales. El 
método de enseñanza es intuitivo y se sirve prin- 
cipalmente de los gráficos. El desarrollo de cada 
una de las operaciones fundamentales se descri- 
be en cada una de sus fases, exactamente ¡igual 
que si se realizase con lápiz y papel. La ventaja 
sustancial es la infatigabilidad del ordenador, que 
va proponiendo ejemplos y preguntas siempre 
nuevos hasta que el nivel de preparación del niño 
es óptimo. 

"m Metodología y funciones del programa. Estruc- 
tura general. Uso de sprites y de gráficos de alta 
resolución para la preparación de las preguntas 
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de aritmética. Operaciones aritméticas, su desa- 
rrollo de manera figurada con el ordenador. Ejem- 
plos de aplicación. El módulo de geometría: ge- 
neración del archivo, interrogación, búsqueda y 
comprobación de las respuestas. Uso del archivo 
de geometría como prontuario. Desarrollo de los 
cálculos. Implantaciones. 


Geografía 


El aprovechamiento de las posibilidades gráficas 
del ordenador convierte el aprendizaje de la geo- 
grafía en un juego divertido, El programa puede 
hacer de guía por las regiones de España o los 
países de todo el mundo, El usuario sólo ha de 
introducir los datos que el niño debe aprender: 
los nombres de los países, de las ciudades, de 
las provincias; el ordenador se ocupará de pre- 
sentar las preguntas y de comprobar la correc- 
ción de las respuestas. 

El programa está completado con una rutina grá- 
fica que permite dibujar de manera sencilla los 
«Mapas geográficos» que la máquina debe pre- 
sentar de acuerdo con el tema de las preguntas. 
= Definición de las funciones realizadas por el 
programa. Estructura de base. Generalización de 
las subrutinas de gestión de los sprites y de los 
gráficos de alta resolución. Creación de los archi- 
vos de base, respuestas. Integración con los mó- 
dulos musicales. Implantaciones: uso de la ani- 
mación, preguntas en secuencia y comprobación 
de las respuestas. 
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Tests: lógica y leyes asociativas 


La lógica, las leyes asociativas, las similitudes son 
elementos fundamentales en el desarrollo de las 
facultades intelectuales. Las dificultades que se 
presentan para que el niño se interese en temas 
abstractos se resuelven con uso del procesador. 
Es posible introducir preguntas y respuestas de 
grados de dificultad y de abstracción predetermi- 
nados. La misión del educador encuentra en el 
ordenador un válido instrumento de aplicación y 
de cotejo, que presenta las preguntas al niño co- 
mo si se tratase de un juego. 

m Metodologías adoptadas: preguntas y res- 
puestas por símbolos, preguntas y respuestas 
con puntuación, por atributos, con símbolos gráfi- 
cos. Análisis de los programas de generación y 
uso de los tests de tipo de pregunta y respuesta. 
Estructura de los ficheros (files), generación de 
preguntas, comprobación de las respuestas. 
Gestión de la memorización de las preguntas su- 
peradas, factor de aprendizaje. Tests por símbo- 
los: descripción, generalización de los programas 
para el uso de símbolos, Metodología a seguir. 
Preguntas y respuestas con puntuación: estructu- 
ra del procedimiento, generación de las pregun- 
tas y de las calificaciones, introducción de las 
respuestas con cálculo de la puntuación y emi- 
sión de la calificación por parte del ordenador. 
Tests por atributos: estructura general y metodo- 
logía. Ejemplo de aplicación. Generalización. 


El ordenador para el ordenador 


Uno de los problemas más importantes de la in- 
formática viene dado por las dificultades que en- 
cuentran los centros de desarrollo de software 
para hacer frente a las peticiones de los usuarios. 
Cada vez se necesitan más programadores, 
mientras que las escuelas existentes ya no son 
suficientes para producirlos. La solución consiste 
en la puesta a punto de programas de tipo abier- 
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to, o sea que permitan adaptarse a las exigencias 
de cada uno de los usuarios, sin que éstos deban 
utilizar los lenguajes de programación clásicos. 
Este programa permite, aun careciendo de las 
bases de la programación, poner a punto progra- 
mas y procedimientos incluso muy complejos, 
que sirven magníficamente para realizar cual- 
quier proceso, incluso en el ámbito profesional. 
La elección de las funciones a activar en se- 
cuencia (presentación, impresión, memorización, 
etc.) puede realizarse operando en un sencillo 
menú, donde se indican en el idioma deseado to- 
das las acciones que es posible realizar. 

m Estructura y finalidad del procedimiento. Fun- 
ciones de base en la programación. Lenguaje de 
alto nivel definido por el usuario. Desarrollo auto- 
mático de las funciones mediante parametriza- 
ción de las subrutinas. Menú de las funciones: 
guía para la preparación de un programa. Subru- 
tinas: diálogo con el usuario y preparación de los 
parámetros. Aplicaciones: escritura de un progra- 
ma de ejemplo mediante el menú de las funcio- 
nes. Módulo ilustrativo: finalidad y estructura, me- 
todología, enlace con los gráficos y el sonido, Ge- 
neralización para una aplicación cualquiera. 


Programas para la profesión 


La tercera sección se dedica al ámbito profesional propiamente dicho, y está orientada a quienes tienen 
necesidad de adaptar las normas de su propio trabajo a los más recientes desarrollos. Los cuatro 
programas presentados resuelven las exigencias típicas del ambiente laboral y permiten resolver con la 
máxima rapidez todas las operaciones que intervienen en él. 


El tablero electrónico 


Actualmente ya es una piedra miliaria en la histo- 
ría de la informática aplicada. Un programa uni- 
versal, que permite organizar y procesar a volun- 
tad un conjunto de datos numéricos. Visicalc*, 
Multiplan* y Symphony? son los nombres de los 
programas de este tipo más difundidos. Mediante 
el uso del tablero electrónico, los problemas de 
contabilidad, de gestión, de presupuestos y de 
previsión son un recuerdo del pasado. Algunas 
aplicaciones casi inmediatas son la distribución 
de los gastos comunitarios, los cálculos de amor- 
tización y el análisis de los factores de influencia 
sobre la composición de los costes, aunque no 
hay que olvidar sus posibilidades para el estudio. 
Las ocasiones de empleo se ilustran con numero- 
sos ejemplos de aplicación. 

m Generalidades y metodología utilizada. Análi- 
sis del problema: implantación general de la es- 
tructura. Cálculos, funciones internas, funciones 
aritméticas. Diagramas de flujo de principio y lis- 
tados. Dimensionado del tablero en función de la 
memoria. Memorización e impresión de los datos. 
Aplicaciones: ejemplo de cálculo. 


La base de datos 


Un programa de tipo profesional para el archiva- 
do y la gestión de los datos. Selecciones, actuali- 
zaciones, ordenados, búsquedas y copias sobre 
papel podrán obtenerse de manera sencilla, rápi- 
da y segura introduciendo muy pocos comandos 
para seleccionar las voces que interesan de un 
menú. El sencillo procedimiento de elección de 
las voces de un menú bastará para estructurar los 
archivos de la manera más racional. 


m Estructuración de una base de datos. Estructu- * 


ración de los ficheros (files). Diagramas de flujo y 
listados. Aplicaciones. Enlace con el tablero elec- 
trónico, transferencia de los datos para el desa- 
rrollo de los cálculos, lectura y memorización de 
los resultados. 


Los gráficos de ordenador 
Con el amplio uso de los gráficos, este programa 


permite extraer de los datos procesados o archi- 
vados, las informaciones más significativas utili- 
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zando los programas precedentes. Se tiene la po- 
sibilidad de presentar los datos más interesantes 
y las evoluciones globales y particulares referidas 
a determinados períodos o a determinados cam- 
pos de variación de los parámetros, mediante la 
presentación de los diagramas, histogramas, grá- 
ficos y procesos de todo tipo. 

1 Generalización de las subrutinas de presenta- 
ción de gráficos. Enlace con el tablero electrónico 
y con la base de datos. Presentación de los gráfi- 
cos en el vídeo y en la impresora. Aplicaciones: 
presentación de resultados de cálculos y de evo- 
luciones memorizados en la base de datos. 


El tratamiento de textos 


Un editor de textos que no se limita a transformar 
el teclado del ordenador en una máquina de es- 
cribir, sino que pone a disposición del usuario un 
conjunto de comandos que permiten la estructu- 
ración del texto, la búsqueda y la eliminación de 
los errores, la memorización del texto en disco o 
cassette y la posibilidad de reclamarlo para modi- 
ficarlo o para enviarlo a impresión. 

mn Generalidades y funciones del programa. In- 
troducción y memorización de los textos. Margi- 
nados. Funciones particulares: inserción de pala- 
bras, borrado, búsqueda de una palabra en el 
texto, sustituciones. Definiciones de los formatos 
de impresión y de escritura en el vídeo. Aplicacio- 
nes: uso del programa para la preparación y co- 
rrección de un texto general. Ejemplo de utiliza- 
ción para la preparación de una carta circular, 
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La adquisición de un ordenador personal representa a 
menudo la entrada al mundo de la informática; pero 
este primer paso no es suficiente: en un mundo desco- 
nocido es muy fácil perderse. 

La finalidad del Basic Advanced es invertir esta situa- 
ción, haciendo entrar la informática en nuestro mundo, 
dando al ordenador su justo papel de instrumento útil 
para el estudio, el trabajo y el empleo del tiempo libre. 
Los programas de aplicación suelen ser caros, y a me- 
nudo están pensados para personal especializado. En 
cambio, esta publicación presenta programas de apli- 
cación que pueden servir para todos, enseñando a uti- 
lizarlos y a aplicarlos a las necesidades particulares 
de cada uno. 

Basic Advanced contiene los programas de aplicación 
necesarios para satisfacer las exigencias fundamenta- 
les en el campo de las aplicaciones familiares y de la 
profesión. 

Cada programa, en lenguaje Basic, se ha desarrollado 
bajo tres sistemas operativos diferentes. Efectivamen- 
te, cada ordenador adopta una estructura hardware 
propia y, por tanto, está regido por un sistema operati- 
vo diferente, que puede ejecutar algunas instruccio- 
nes en lugar de otras. Se han tomado como referencia 
los tres sistemas operativos que cubren la casi totali- 
dad de los ordenadores domésticos y personales ac- 


SISTEMA OPERATIVO DOS? 


Apple Il, lle, llc 

Siprel 2010, 2040, 6400 (Personal Kid) 
Multitech MPFII, MPFIII 

Joytech C plus II A 

Lemon || 

Mouse lA 


SISTEMA OPERATIVO COMMODORE? 


Commodore 64 
Commodore 64 Executive 
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tualmente más difundidos en el ámbito familiar. Los lis- 
tados completos de los programas se publican en las 
tres versiones adecuadas a los tres sistemas operati- 
vos para que los programas puedan funcionar en la 
mayoría de máquinas de esta categoría presentes en 
el mercado. Los tres sistemas operativos de referencia 
se indican en la tabla de abajo, junto con las máquinas 
que los han adoptado. 

Los programas presentados constituyen un paquete 
software completo y abierto: completo porque las apli- 
caciones previstas llenan en la práctica las necesida- 
des de aplicación correspondientes al ámbito domés- 
tico, docente (por lo menos para los alumnos de las 
escuelas elementales y de grado medio) y profesional. 
Abierto porque cada aplicación puede orientarse a fi- 
nalidades incluso muy diferentes de las que se han 
previsto y presentado, sin necesidad de intervenir pro- 
fundamente en la estructura de los programas. 

Los programas se han proyectado y realizado hacien- 
do referencia a la configuración hardware más corrien- 
te de cada sistema, incluida la impresora y, en cada 
caso, la unidad de cinta (grabador) o la unidad de dis- 
co. Sin embargo, cuando el sistema lo permite, los 
programas pueden utilizarse tanto con unidad de cinta 
como con unidad de disco. 

En algunas aplicaciones, especialmente cuando incor- 


SISTEMA OPERATIVO MSX? 


Philips VG 8000, VG 8010 
Sony Hb-55P, Hb-75P 
Aster International 
Canon V10, V20 
Fujitsu 

General 

Hitachi 

JVC 

Kyocera (Jashica) 
Panasonic 

Mitsubishi 

NEC 8001, 8801 
Pioneer 

Sanyo MPC 100 
Toshiba HX-10 
Spectravideo SV 738 


poran la gestión de ficheros (files), las operaciones 
con cassette son mucho más lentas que con disco. 
Por esta razón, como se ha dicho antes, quien dispon- 
ga de unidad de disco en el sistema Commodore po- 
drá acelerar las gestiones. 

Otro importante elemento es la presencia de la impre- 
sora en la configuración utilizada. Algunos de los pro- 
gramas presentados, como por ejemplo el sistema de 
tratamiento de textos, presuponen que el ordenador 
está conectado a una impresora hacia la cual es posi- 
ble dirigir un texto de salida para tener una o más co- 
pias sobre papel. 

Cada uno de los programas presentados está ¡lustra- 
do según un esquema que se articula en cuatro párra- 
fos, cada uno de los cuales tiene un papel fundamen- 
tal en la exposición de las funciones, de las problemá- 
ticas y de los métodos de resolución adoptados en 
cada caso. 

El esquema de los párrafos es el siguiente: 


m Uso del programa 
m Los listados 


Simbolos: 


Líneas de flujo 


Flujo principal 


en condición de error 


Actualización ficheros 


SIMBOLOGIA UTILIZADA EN LOS DIAGRAMAS DE FLUJO GENERALES 


Ficheros. La base del rectángulo proporciona la indicación 
comparativa de la dimensión del fichero 


Procedimientos o subrutinas en los que 
predominan los procesos 


Zona de comprobación y tujo correspondiente 


5" La lógica del programa 
"m Extensiones y modificaciones 


Sin embargo es posible profundizar la lectura de las 
partes que más interesen, puesto que cada párrafo es 
independiente de los demás. 

Por ejemplo, pueden estudiarse en detalle las partes 
inherentes a la ilustración de las finalidades y de las 
modalidades de empleo del programa, sin entrar de 
manera profunda en las aplicaciones de programa- 
ción propiamente dichas, si éstas sólo interesan de 
manera marginal con respecto al uso efectivo de los 
programas. 

Por el contrario se podrá profundizar en la estructura 
lógica del programa y de los algoritmos de resolución 
adoptados si es la programación el aspecto que más 
interesa. 


Uso del programa 


Además de una descripción de la materia tratada por 
el programa, se describen los procesos que éste pue- 


Procedimientos o subrutinas dedicadas 
principalmente a las funciones de entrada/salida 


Subrutinas o zonas de programa 
en las que se realizan operaciones 
de control 
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CLAVES DE LECTURA DE LOS COLORES EN LOS DIAGRAMAS DE DETALLE 


Flujo principal o bloques e instrucciones generales 


Flujo de error o instrucciones de control y de comprobación 


Flujo de actualización de ficheros 


Operaciones de 1/O en vídeo o impresora 


Bucles 


Operaciones de acceso al disco 


de realizar y que están orientados a la resolución de 
problemas que se encuentran con frecuencia en la 
práctica cotidiana. Por tanto, se ilustran una o más 
aplicaciones, que tienen la finalidad de poner ejem- 
plos del uso del programa y constituir un verdadero 
manual de referencia. 

En este párrafo se ha hecho un amplio uso de la ima- 
gen fotográfica del vídeo, que constituye el vehículo 
ideal para ilustrar el empleo de todas las posibilidades 
del software. Al lado de cada fotografía se describen 
con detalle las acciones que debe realizar el usuario 
para activar las diferentes funciones previstas en el 
programa. La exposición está estructurada de manera 
secuencial, empezando por la activación del progra- 
ma y procediendo según la lógica del usuario. 


Los listados 


Se presentan los listados en lenguaje Basic de los pro- 
gramas en las tres versiones previstas. Se han reduci- 
do al mínimo indispensable las inevitables diferencias 
que existen entre las tres versiones para permitir las 
comparaciones a efectos didácticos. Cada usuario 
podrá dedicarse exclusivamente a la versión desarro- 
llada bajo el sistema operativo disponible en su máqui- 
na. Al final de cada listado se presenta una relación de 
las variables empleadas y el significado de cada una. 
Las máquinas en las que se han desarrollado y com- 
probado los programas son las siguientes: 
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"m Apple lle (sistema operativo DOS 3.3) 
m Commodore 64 (sistema operativo Commodore) 
=m Philips VG 8010 (sistema operativo MSK) 


La lógica del programa 


En este párrafo se expone, utilizando gráficos y dia- 
gramas de flujo en colores, la lógica según la cual se 
ha realizado la funcionalidad del programa. El proble- 
ma a resolver está organizado de manera racional, po- 
niendo de relieve cuáles son los resultados que se de- 
sea obtener, cuáles los algoritmos que permiten obte- 
nerlos y cuáles los datos de entrada sobre los que de- 
ben trabajar los algoritmos. La simbología adoptada 
en la síntesis del programa de flujo se resume en el 
gráfico de la página 1735. 

En algunos casos, la complejidad de la aplicación re- 
quiere ulteriores afinados, en los cuales se adoptará la 
simbología indicada arriba. 


Extensiones y modificaciones 


Ya se ha comentado que los programas presentados 
constituyen un paquete software completo y abierto, lo 
que hace posible la separación y el empleo de las di- 
versas funciones para realizar procesos no previstos 
explícitamente en el texto. 

En cada caso se describen los métodos a seguir. 


UIPeJ4/esesenes 


Las fórmulas financieras suelen verse como entidades 
impenetrables y pocas son las personas que pueden 
manejarlas con soltura para aplicarlas a los cálculos 
económicos personales. 

El cálculo de intereses, amortizaciones y en general de 
valores ligados al mundo financiero es laborioso y a 
veces muy complejo. Su naturaleza repetitiva lo hace 


po A A 
Uso del programa 


Los cálculos realizados por los módulos del programa 
se refieren a los siguientes temas: 


1) Valor futuro de un depósito 

2) Valor futuro de una serie de depósitos 
3) Inversiones para una suma futura 

4) Retiradas de un capital 

5) Valor actual de un importe futuro 

6) Interés necesario 


Las fórmulas utilizadas para cada tema pueden obte- 
nerse de los listados aunque no tienen ninguna impor- 
tancia para el usuario. Las breves notas que se pre- 
sentan a continuación permiten comprender perfecta- 
mente el tema desde el punto de vista operativo, que 
ulteriormente se aclara con ejemplos de aplicación. La 
única advertencia de carácter general corresponde a 
la voz «Períodos anuales» que aparece en algunas 
máscaras. El cálculo de los intereses y su capitaliza- 
ción se produce en períodos definidos del año, por 
ejemplo en el mes de diciembre. La voz «Períodos 
anuales» indica cuántas veces al año se capitaliza el 
interés, o sea se suma al capital. 


Valor futuro de un depósito. Determina el valor que 
tendrá un capital depositado con una determinada ta- 
sa de interés después de un determinado número de 
años; se trata de un cálculo de interés compuesto. Por 
ejemplo, invirtiendo una suma de 100.000 ptas. a un 
interés del 10% anual con capitalización anual, des- 
pués de 12 meses se tendrá un valor futuro de 
110.000 ptas. 


Valor futuro de una serie de depósitos. La segunda 
voz es análoga a la primera, con la diferencia de que 
prevé el crecimiento del capital en el tiempo, además 
del debido a los intereses devengados, el debido a 
imposiciones periódicas. 
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un tema particularmente adecuado para ser realizado 
por el ordenador. 

Este programa presenta algunos tipos de cálculo e in- 
dica la metodología a seguir para futuras implantacio- 
nes. Este tema es el primero que se presenta porque 
no requiere gestión de ficheros (files), por lo que tiene 
un grado de dificultad bajo. 


Inversiones para suma futura. Realiza el cálculo in- 
verso con respecto a al anterior, o sea permite averi- 
guar cuál debe ser el importe de las inversiones a 
efectuar para obtener, transcurrido un cierto tiempo, 
un capital prefijado. El capital se obtiene a través de 
dos componentes: el importe efectivo de las inversio- 
nes acumuladas y el importe de todos los intereses 
abonados. 


Retiradas de capital. Permite determinar la duración 
de un capital, depositado con una cierta tasa de inte- 
rés, del cual se efectúan retiradas periódicas fijas. 
También en este caso se tienen dos flujos: el primero 
es el interés que aumenta el capital, y el segundo son 
las retiradas, que lo disminuyen. La duración del capi- 
tal depende del número máximo de retiradas, más allá 
del cual, el interés ya no consigue compensar la cifra 
de salida. 


Valor actual de un importe futuro. Con el término de 
valor actual se entiende la cifra a invertir a un determi- 
nado interés para obtener un capital prefijado. El pro- 
grama proporciona el importe del capital a invertir a un 
determinado interés para obtener en el futuro la cifra 
deseada. 


Interés necesario. Permite calcular el interés necesa- 
rio dada la suma invertida y el capital final. Esto hace 
posible la comparación entre diferentes hipótesis de 
inversión para determinar cuál es la más conveniente. 
Este primer programa, además de ser un medio de 
cálculo útil en muchas situaciones prácticas, tiene la 
finalidad de introducir la metodología general que se 
realizará en el curso de toda la obra. 

Para otros programas de interés más general, la parte 
de introducción dedicada a la exposición del proble- 
ma estará más desarrollada. 

En este caso, las dificultades de programación no son 
importantes, dado que no hay rutinas de gestión de 
ficheros (files) en disco o en cinta. 


Menú principal. 

En esta página y en las siguientes se ha representado un 
ejemplo completo del uso de las funciones previstas por 
el programa. Aquí al lado puede verse el menú del 
procedimiento, que se presenta en el vídeo 
inmediatamente después de la introducción del comando 


RUN. La versión que se examina es la del Commodore 64. 


Cuadro de ayuda del menú. 

El usuario ha entrado en la función de ayuda tecleando 
CTRL + Y, El cuadro, presentado automáticamente, 
contiene las informaciones necesarias para activar las 
funciones previstas por el menú: desplazamiento del 
indicador (sprite) hacia arriba o hacia abajo para la 
selección de la voz indicada. 

Para volver al menú debe pulsarse una tecla cualquiera. 


Selección de una voz. 

En este caso, el usuario ha vuelto al menú y ha 
seleccionado la voz 1, posicionando el indicador y 
pulsando la tecla funcional f1. El programa pone en 
«inverso» la voz seleccionada y espera unos momentos 
antes de presentar la correspondiente máscara vídeo. 


Voz 1: Valor futuro de un depósito. 

La fotografía de aquí al lado muestra la máscara vídeo 
de la voz 1. 

Los trazos constituyen los campos en los que aparecerán 
los datos tecleados por el usuario y el resultado que 
proporciona el ordenador (en la última línea). Esta 
máscara video también prevé una función de ayuda, que 
puede activarse tecleando CTRL + Y. 


E.G.S. Ediciones Forun 


Valor futuro de un deposito 
Valor futuro serie depositos 
Inversiones para sumi 
Retiradas de capital 

Valor actual 

Interes ne 


Fin de 1 


desplaza hacia abajo: 


desplaza hacía arriba: 


introduce opcion elegida: 


PULSE UMA TECLÁ PARA VOLVER AL MEMU 


Ediciones Forum 


y A a RA LA 


Valor futuro serie deposito: 
Inversiones para suma futura 
Retiradas de capital 

Valor actual 


interes necesario 


E,G,S, Ediciones Forum, S 


DEPOSIA 
LLE 

l 

GULES 


DALDR 


1739 


Cuadro de ayuda de las voces. 

Este cuadro de ayuda es diferente al visto para el menú. 

En este caso se han predispuesto algunas funciones de COMANDOS 

edición que tienen la finalidad de facilitar el trabajo de 

introducción. p Pp DESPLAZA DERECAN | 

f1 anula los datos introducidos y representa la máscara LLISUE AI SNAR ACUUAATO 
vacía CR JDESPLOCA ARRIBA] 

f3 inserta un espacio en la posición ocupada por el CR A DESPLASA MENO 
cursor (para la introducción de otro carácter) ARA 

f5 borra el carácter (o la cifra) en la posición ocupada por 2 ES - TRTRODUCCION 
el cursor E ORRADO AS 


f7 permite volver al menú RETORNO AL HENO 7 
RETURN alinea a la derecha el dato introducido y VAL AT 


desplaza el cursor al principio del siguiente 


e mi PRA AA 
campo 
CRSR  (2teclas) permiten desplazar el cursor 


UNA TECLA PARA VOLVER 


Aquí el usuario ha vuelto a la máscara vídeo de la voz 1 y 
ha introducido algunos datos. En la última línea, el 
programa ha presentado el resultado: depositando un TE E 
capital inicial de 1.000.000 a una tasa del 12% ca a SA 
(capitalización anual) durante 5 años, se obtiene un valor 
futuro de 1.762.341. 
Los primeros cuatro campos se reservan para la 
introducción de los datos, mientras que el último es £ «1000000 
utilizado por el programa para presentar el resultado, 12.0 
CARUALES: 1 
5 


UNUOR FUTURO! 1762341 


o  ___  AAAAAAAAAAAAHxAAAAxAxákA=kk<A<á<>==—> 


Voz 2: Valor futuro de una serie de depósitos. 

La voz 2 tiene un significado análogo al de la voz 1, con la 

diferencia de que el programa calcula el valor futuro que 

se obtiene depositando mensualmente durante un cierto 

número de años una cantidad constante a una 

determinada tasa de interés. 

En este caso, los campos de introducción son tres. Una . se 
vez introducido el dato en un campo es necesario SEUA == 200060 
posicionar el cursor al principio del siguiente pulsando la 

tecla RETURN. Si el dato introducido cubre exactamente 

la anchura del campo, el cursor se posicionará 

automáticamente. 


UALOR FUTURO] 8615375 


Voz 3: Inversiones para suma futura. 

En el primer campo se ha introducido el capital futuro que 
se desea obtener y, en el segundo, la tasa de interés 
aplicada al depósito. En el tercer campo se especifica el 
número de años con el que se desea conseguir la suma 
declarada y, en el cuarto campo, el número de 
imposiciones anuales que se supone que van a hacerse. COR , 15000000 
La respuesta del programa es el importe de cada una de y or E 


; eE HATE 12. 
las imposiciones que deben hacerse. A A 


12 


Ediciones Forum, S.A. 


AMPORTE INUER.] 183666 
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Voz 4: Retiradas de un capital. 
En el primer campo debe introducirse el capital de que se 
dispone y, en el segundo, la tasa de interés aplicada. 
Introduciendo después el número de retiradas que se 
desean hacer cada año y el importe de cada una de ellas, 
el programa calcula el número total de retiradas que 
permite efectuar la cifra inicial, considerando también los 
intereses devengados. ( 1 =- 2000009 
Después de realizado el cálculo, el programa reposiciona Í 12.5 
el cursor al principio del primer campo de introducción. RET-ANUAL 3 
300000 


RUHERO DE 


Voz 5: Valor actual. 

El programa calcula el capital que debe invertirse a una 

determinada tasa de interés para obtener un determinado E.G.S. Forum, S.f, 
valor futuro en un cierto número de años. En el ejemplo, 

para tener un capital final de 1.000.000 en 5 años (con 

capitalización anual), es necesario invertir a una tasa del 


12% una cifra de 567.426. «- 1008909 


12.80 


1 NUS] 5 
LUDUS ARUALESI 


UNLUR ACTUAL! 567426 


Voz 6: Interés necesario. 
En el primer campo debe introducirse el valor del capital 
invertido, en el segundo la suma final que desea 
obtenerse (capital inicial + intereses) y en el tercero el 
número de años que se está dispuesto a esperar. 
Introduciendo en el cuarto campo el período de 
capitalización, el programa presentará en la última línea LO cu ” 1000000 
el interés que debe aplicarse el capital inicial. SUN 20000090 
ki ANOS] 
ANUALES] 


El usuario ha vuelto al menú principal, ha posicionado 

el indicador en la voz 7 (Fin de tarea) y ha pulsado 

la tecla funcional f1. E.G.S. Ediciones Forum, S.ñ, 
El programa termina. 


1Y3j) LTD 
Valor futuro serie depositos 
Invers 5 para suma futura 
- Retira de capital 
Valor actual 


Interes necesario 
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=D 
1. Los listados / Versión Commodore 64 


10 REM 
eE REN AO MAIN IOJONOK 
28 DIM BF(20>,TP(20),L0(20),ND(20),0X(20),0Y<20))DXC20),DW(20) 
22 DIM TFC15),D$(20),V0$(20) 
24 Blg=" ":ERS="E":PDgm".":AS5="-=":NS$="m"; SU$="M":01U$="9":HOS$="7J" 
25 US$=CHR$(133) :NV=7:XC=6:WC=6:5Z=2:POKE650, 128 
26 GUSUB_1380:PRINTHOS:PRINTCHR$(142):FM=8:REM LLAMADA DEL MENU PRINCIPAL 
27 1F 0PZ=7 THEN SYS671:END 
30 GOSUB20998 
33 POKE 53281,6:POKES3280, 14 
35 FOR I=1 TO 15:READ TFC1>:NEXTI 
RR TECLAS FUNCIONALES (15) 
110 GOSUE 7000:REM kk CARGA DATOS * 
120 GOSUB 2000:REM %k MASCARA * 
130 GOSUB 30006:REM * DATA ENTRY %k 
140 1F FS=7 THEN 26 
156 GOTO 110 
169 REM 
ii 
1301 REMOK MENU PRINCIPAL * 
1302 RENA AR 
1303 LV=-1:POKE53281./6:P0KE53280,6 
1305 U$=" MENU ":0PZ=0:VO$COPZ)=" ALAS "TA" :GOSUB 7000 
1306 0P2=1 
1307 PRINT"»"; 
1315 39253248 :POKESS+21,1:POKE2040, 13 
1316 RESTORE 
1318 FOR_1=0 TO 62:READM:POKES32+1,M:NEXTI 
1321 POKESS+39,1:C1=40:C2=111 
1323 G0SUB 1363 
1324 GOSUB 1396 
1327 GET 0PZ$:1F 0PZ$="" THEN 1327 
1333 1F OPZ$=G1U$ THEN C2=C2+16:0PZ=0PZ+1:G0SUB1363 
1336 1F 0PZ$=SU$ THEN 02=C2-16:0PZ=0PZ=1'60SUB1363 
1339 IF OPZ$=US$ THEN 1381 
1342 1F ASC(OPZ$)=25 THEN GOSUB1456:G0T01305 
1343 GOTO 1327 
1363 REM POSICIONADO SPRITE 
1366 IF C2<111THEN C2=C2+16:0PZ=0PZ+1 : RETURN 
1369 1F 027207 THEN C2=C2-16:0PZ=0P2-=1 RETURN 
1372 POKE S8,C1:POKE SS+1,C2 
1375 RETURN 
1378 REM ELECCION OPCION 
1381 X=4C:Y=0PZHSZ+YC 
1384 GOSUB 11000 
1387 PRINT" ma"; VOS(OPZ) 
1390 FOR T=1 TO 1000:NEXT 
12392 POKESS+21,PEEK(S8+21)AND254 
RETURN 


1399 FOR J=1 TO NV:READ YO0$(J>:NEXTJ 
1400 REM PRESENTACION VOCES MENU 
1405 FOR 1l=1 TO NY 
1409 X=XC:vmI IMSZ+WO 
1411 00SUB1 1000 
1414 PRINTVOSC11I> 

NEXT 11 


1420 RETURN 
1425 DATAG,0,0,0,96,0,0,144,0,3,32.,0 
1427 DATA4,64,0,8,143,252,17,112,2,224,129,252 
1429 DATAA, 63,0,0,65,0,0,63,0,0,31,0 
1431 DATAO0,33,0,0,31,0,224,63,0,16,81,0 
1433 DATA1S, 30,0,0,0,0,0,0,6,9,0,.0,8,0,0 
DATA"1- XALOR FUTURO DE UN DEPOSITO " 
1445 DATA"2- XALOR FUTURO SERIE DEPOSITOS" 
1446 DATA"3- +NVERSIONES PARA SUMA FUTURA" 
1447 DATA"4- -ETIRADAS DE CAPITAL" 
1448 DATA"S- ALOR ACTUAL" 
1449 DATA"6- +NTERES NECESARIO " 
1450 DATA"S- IN DE TAREA" 
1456 REM _melodok AWUDA MEL oo NR A 
1457 POKESS+40,6 
1459 PRINTCHR$(147):PRINTCHR$(14) 
1462 POKESS, 255:POKESS+1,115:POKESS+39,6 
1465 POKESS+41,6 
1468 POKESS+21,7:POKE2040, 13:POKE2041,14:POKE2042, 15: POKESS+29, 4 
1471 FORN=0T062 : READOQ : POKES32+N, Q: NEXTN 
1474 FORN=9T062:READO :POKES96+N, 0: NEXTN 
1477 FORN=0T062 : READQ : POKE969+N, Q: NEXTH 
1483 POKE 53281,6 
1486. PRINT "MM ——————— 8 8 1 AAA 0 
1489 FOR I=i TO 15:PRINT"MI/ 15 +NEXTI 
14922 NT KÉ_—_—_—_—_—r a 4 
1495 PRINTCHR$(19):PRINTTABI?) "MIA AT LON 
1498 POKESS+2,255:POKES8+3, 145: POKESS+4, 245: POKESS+5, 189 
1500 POKESS+39, 1:POKESS+40, 1:POKESS+41,1 
1501 PRINT"MWBNDESPLAZA HACIA ABAJO: " 
1504 PRINT"MIBIDESPLAZA HACIA ARRIBA: " 
1507 PRINT"MMMMINTRODUCE OPCION ELEGIDA: " 


1510 PRINTTABCS)"MUTAO” 18 1740 AA MA PLN 
1513 GET R$:IFR$=""THENIS13 

1550 POKESS+39, 6: POKESS+40, 6: POKESS+41,6:PRINT"2J" : RETURN 
1552 DATA3,255,192,12,0,32,16,16,16,32,56,9,32,108,8 

1554 DATAG4,40,4,64,40,4,64,0,4,93,206,228,81,72,164 

1556 DATA81,206,228,81,66,164,93,46,148,64,0,4 

1558 DATAG4,40,4,64,40,4,32,108,8,32,56,8,16,16,16 

1560 DATR12,0,32,3,255,192 

1562 DATA3, 255,192,12,0,32,16,32,16,32,120,8,32,192,8 
1564 DATAG4,120,4,64,32,4,64,0,4,93,206,228,81,72,164 
1566 DATAS1., 206, 228,81,66,164,93,46,148,64,0,4,64,16,4 
1568 DATAG4,120,4,32,12,8,32,120,8,16,16,16,12,0,92,3,255,192 
1570 DATAG,0,0,7,255,224,24,0,24,96,0,6,128,0,1,129,1,129 
1572 DATA134,131,129,132,2,129,132,0,129,142,0,129 

1574 DATA132,6,129,132,0,129,132,0,129,128,0,1,96,0,6 
1590 DATA24,0,24,7,255,224,0,0,0,0,0,0,0,0,0,0,0,0 

1600 REM FIN MENU PRINCIPAL 


REM 

2005 REM AMM PRESENTA MASCARA mk 
REM 

2038 FOR Jw=i TO NUC 
Asa" 


2035 X=DX(J):V=DYCJ)> :GOSUB1 1000: PRINTDSCJ> 
2060 CANA TPCJ)=1 OR TPC(J>=2 THEN C$=NS$:GOTO 2070 
| 


2070 FOR I=i TO Ni-N2-1:A$=A$+0$:NEXTI 

2075 1F N2=0 THEN A$=A$+C$:G0TO 2095 

2080 A$A$+PDS 

2090 FOR l=1 TO N2:A$=A$+"0":NEXTI 

2095 XCXCJ): O GOSUB 11408 

2096 PRINT "MAS;' Y 
2097 BS(J)="" 

2098 FOR Kw1 TO Ni-N2-1 

2100 BScJ)=BSCJI+BLS 


2105 NEXT K 

2106 BSCJ)>=BSCII)+RIOHTSCAS,N2+1) 
2130 NEXT J 

2150 RETURN 

3000 REM 

3010 REM xk DATA ENTRY mM 

3020 REM 

3030 Jmi 

3040 NC=J:X=CX(NC) : YWCY<NC> 

3059 CC=1 


- 
3060 GOSUB 3240 
3065 1F FS=9 THEN RETURN 
3070 IF FS=B THEN 3100 
3089 1F FS>4 THEN 3210 
3094 GOTO 3120 
3100 J=J+1:1F J>NUC THEN 3030 
3119 GOTO 3049 
3128 ON FS 00TO 3130,3150,3170,3190 
3130 1F J>1 THEN J=J-1:G0TO 3040 
3140 FSw9: J=NUC: GOTO 3040 
3150 IF J<NUC La JmJ+1:00T0 3040 
3160 FS=9:G0T0 3 
3170 IF CC<LC<J> REN $1 :CC=CC+1:XwX+1:G0SUB 11000:G0T0 3060 
3189 FS*eB:00TO 3109 
31990 IF CC>1 THEN S=-1:CC=CC-1:X=X-1:005UB11800:G0TO0 3068 
3200 O 3040 


3220 1F FS>8 THEN F8=9:G0T0 3060 
3230 1F FS=89 THEN FS=0:G0TO 3100 
3235 RETURN 


REM 
3250 an MN LECTURA DE UN CAMPO mm 


3280 FSm0 

3290 IF TP(NC)=4 THEN RETURN 

3309 IF TP(NC>="2 THEN GOSUB 9000:RETURN 

3310 1F MIDSCBS(NC>,CC,1)=PDS THENX=X+S:CC=CC+S 

3324 0OSUB 11099 

3330 GET A$:IF A$C>"" THEN 3338 

3332 00SUB11000;PRINT" ma"; GOSUB11000'PRINTMIDSCBS(NC),CC,1)5 
3334 FOR das e 20:NEXT T a 

3336 GOTO 3 

3338 TERSCCAS)=19ORASCCAS)=200RASC<AS)=1470RRSCCAS)=148THENIIO 
3340 PRINT"M";A$; 

3350 CARASCCAS) 

3360 FOR Iwi TO 15 

3370 1F TFCI>=CA THEN FS=]: I]=15:G0SUBI630: RETURN 

3375 A THEN RETURN 


1 
3398 1F TPNC><1 THEN 3450 
3400 IF CA=45 OR CA=46 OR(CA>)=4BANDCAC="57 >THEN3420 
3410 GOTO 3330 
3420 IF CAC>46 THEN3I450 
3430 GOSUB 4278 
3440 1F SWP=1 THEN 3410 
3450 Sw1:008UB 3529 
3460 IF CCÑLC(NC> THEN RETURN 
cuen aa ¡XwX+1:00T0 3319 


3521 yaa MM TRANSFERENCIA AL BUFFER mk 
3578 IF CCwí THEN SN$e"":GOTO 3590 
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SN$=LEFTSCBS(NC),CC-1) 

IF CCSsLC(NC) THEN DE$="":G0TO3610 
NSLCCNC3=CC : DES=RIGHT$CBS(NC),N) 
BS<NCI=SN$+A$+DES 

RETURN 

REM 

REM Mk COMANDOS 

IF FS>5 THEN 3710 

IF FS>5 THEN 3718 

RETURN 


IF FS=9 THEN GOSUB 13900:RETURN 
IF. FS=8 THEN GOSUB 4680:RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 374B,3910 

RETURN 

REM 

aa] dk INSERTAR 0% 

1F CC=LC<NCITHEN RETURN 

IF CC=1 THEN SN$="":G0T03809 
SN$=LEFTSCBS(NC),CC-1) 
NsLC(NCI=CC+1:DESSRIGHTS(BS CONC), No 
C$=BLS$ 

AS=SNS+CS$+DES 
ES(NCIALEFTSC AS, LOCNCIA 
SA 

X=CXCNC) :W=CW(NC):GOSUB 11000 
HERA: a 

REM 

PRINT BS(NC>:S=-1 

IF RIGHT$(ES(NC),1)=PDS$ THEN 3780 
RETURN 

REM 

En JOR BORRAR ARA 


RE 

IF TPONC><O1 THEN 3950 

IF MIDS(BSCNC>+2,1)=PDF AND CC=1 THEN RETURN 
IF £C<1 THEN RETURN 

IF CO=LC(NC) THEN DE$="":GOTO 3988 
NsSLCóNCI=CC:DES=RIGHTECBGCNC) NM) 
SN$=LEFTS(BS(NC>,CO-1> 

IF TPCONCI=1 DR TPONCI=2 THEN C$=NS$:G0TO 4010 
C$=A93 

crio 

RAZA Y 

ES W=CWYONCA :GOSUR 11000 

XA ¿Y 

PRINT BS(NC):S=1 "RETURN 

REM AR AL INERDOS Ho 

IF LOCNC>=1 THEN RETURN 
N1=LC(NC)=CC+1 

IF CC=1 THEN B$(NC)="":G0T04100 
BS(NCI=LEFTSCBFEONC),CC-1) 

IF TPXNCI=1 DR TP(NC)=2 THEN 4156 
FOR I=1 TO Ni 

BSUNCI=BF(NCI+BLE 

NEXT 1 

GOTO 4190 

FOR I=1 TO Ni 
"TA 


IF RIGHT$CES(NCA,1)=PD4 THEN IA Ad LOCNCI=10 
X=CACNC) ¿W=CWONCA:GOSUB, 11000 

PRINT BS(NC) RETURN 

REM CTRL PUNTO 

SUP=0 

IF CC=1 OR CC=LC<NC> THEN SHP=1:RETURN 

FOR I=1 TO LC(NC> 

IF MIDSCBSCNC>,1,19=BL$ THEN I=LCCÚNC) :SMP=1 : RETURN 
NEXT I RETURN 

Lia Ak CARGA LOS DATA 4 

REM 


LSLENCYOS(OPZ))=3:L$=RIGHTS(YOFCOPZI/L):1F OPZ=0 THEN 7005 
US= "OZ "+STRECOPZR0 
P=(30-L/2:Pg="":FORK=1TOP:Pg=P9+" ":NEXTK 

PRINT HO$; +PRINTCHR$C145; 

PRINT "Hai mr. l.v. "DICIONES -ORUM, 4.4," 
PRINTUMZA "UE RA B 
PRINT"MA xa"; 

IF 0PZ=0 THEN ceras: ea; 

PRINTLS; "20 ;P: 

PEINT immer 1 
X=1:Y=22:GOSUB11000:PRINT"m 
X=29:=23:05UB11000:PRINT"2Az1-L+ 1: AA 

IF OPZ=0 THEN RETURN 

REM dodo 

ON 0PZ GOTO 7050, rOsS+ 7060,7065,7070,7075 

Lv=15: GOSUB20000 : NUC=5 :GOTO709A 

LV=58: QOSUB20000: NUCE4: G0TO7898 

LV=78 : GOSUB20008 :NUC=5 : GOTO790 
LV=113:G0SUB20900:NUC=5:G0TO07099 

LV=148 : GOSUB20900 :NUC=5: EUA a 
LV=183:00SUB20080:NUC=5:G0T07690 

REM LECTURA DATOS MASCARA. 

FOR I=í TO NUC:*READ D$CI>:NEXTI 

FOR l=1 TO NUC:READ TPCI>,LCCI),NDC1),DXCI), CMC 1) CLIO 


7097 Dwc1)=CWYC 1) 
7100 NEXT 1 
7110 RETURN 


REM 
9063 REM mk CALCULO ne 
REM 


9030 ON OPZ GOSUB 9100,9200,9300, 3400, 9500, 9600 
9035 1F ER<>0 THEN GOSUB 9158 

9037 BS(NC)ÑRIGHTS(BSUNC),LENCBSONCI 12 

9040 IF LENCBS<NC))ILOCNCITHEN BSCNC>=ERS 

9050 IF LENCBSONCII=LC(NC) THEN X=CXC(NC) :Y=CY (NC) : GOSUB1 1090: PRINTBS(NC> : RETURN 
9060 CCSLENCBS(NCII+1 

90708 GOSUB 4088 

9088 RETURN 

9190 REM AO OPZm=1 cd 

9104 ERug 

9103 Z1=VALC(BS(4))MVAL(BS(3)) 

9110 22=VALCBSC1)) 

9115 23=VAL(B$(2))/108 

9117 1F VALCBSC3))=0THENER=1 RETURN 

9120 FOR K=1 TO 21 

9125 Z2Z2+22K2Z3/VALCBSC3)> 

9127 iS cd .70141193E+36 THEN K=Z1 


XT 
91395 BSC5)=STRECINT(ZZ)> 
9140 RETURN 

9195 PREM noe Md lo lo Al 
9149 REM ANO RUTINA DE ERROR mo 


w 
pS 
w 
So 
> 


9150 PRINT "MIDI AA" 

9155 FORT=1T0890:NEXTT:PRINT" MUI "RETURN 

9156 EIA Al a ls ll e e ”, 
9200 REM mM OPZZ AKI 

9203 ER=ug 


9205 Z1=VALCBSC1)> 

9210 Z2=VAL(BS(3))M12 

9215 Z3=VAL(BF(2>)/100 

9220 24=0 

9225 FOR K=1 TO Z2 

9230 24=21+24+24K23/12 

9233 a THEN K=22 


9240 BS(4)=STRSCINT(Z4)) 
9245 RETURN 
3300 AL OPZ=3 oK 


9304 IFVALCB$(4)>=0THENER=S : RETURN , 
9305 Z1=VAL(B£(1>) 

9310 22=VALCBS$C3))KVALCBG(4)) 

39315 Z3=VALCBS(2))/100/VAL(BF(4)) 

39317 1F Z39=8 OR 22=0 OR 228080 THEN ER=3: RETURN 
9324 Z4=Z1M(Z3/(C1+23)122-1)) 

93235 BS(S)FÑSTRÍCINTCZ4)) 

9330 RETURN 

9400 REM MA DPZ=4 MN 

9403 ER=0 

9405 Z1=VWALCBSC1>) 

9410 Z2=VAL(B$(2>)/100 

9415 Z3ImVAL(BFC3)) 

9420 Z4=VAL(B$(4)) 

9425 25=21:26=1 

9427 1F Z3=8 OR 24=0 OR (23:0ANDZ4=0> THEN ER=4:RETURN 
3430 23:25+239M22/23-24 

9435 1F Z4<Z1Z2 THEN ER=4: RETURN 

9437 IF 25<24 THEN 9445 

29440 26=26+1:600T09430 

9445 BS(S)=STRÍCZE) 

9450 RETURN 

9500 eos IR OP ZE A 

9502 ER=O 

9503 1F VAL(B$(4))=0 THEN ER=S: RETURN 
9505 Z1=VALC(BECI) )MVALCBS(4)> 

9510 Z2aVALCB$C2))/100/VALCB$(4)> 

9515 Z3=VAL(B$(1)>) 

2517 1F 2178000 THEN ER=5:RETURN 

9520 24=29/(1+22) 121 

9523 1F 241.70141183E+36 THEN ER=5: RETURN 
9525 BS(5)=STRSCINT(Z4)) 

9530 RETURN 

9600 REM WM OPZ=G A 

3604 ER=4 

9605 Zi=VALCBFC1)) 

9610 22 VAL(BG(2)) 

9615 23=VAL(B$(3)) 

2620 Z4=VAL(BGC4)) 

9625 Z3=Z3MZ4 

39627 1F Z1=4 OR 2528 THEN ER=6:RETURN 
9630 Z6=((22/21)1M1/25)-1)H100NZ4 

3633 1F 26>1.70141193E+36THEN ER=6:RETURN 
3635 Z6=CINTCZEM10))/10 

9649 o 


43 URN 
10000 REM Nk DATA ok 
10005 REM 
10010 DATA 145,17,29,157,0,133,136,13,25,1394,135,0,0,0,8 
10013 REN cl lll lc lA 
10015 DATA" MATT TUIMRAA TAME 4/47" 
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alii, Cd ME E 
DATA1,8,0,7,25,9,1,4,1,7,25,11,1,2,0.7,25,13 


DATA1,2,0,7,25,15,2,9,0,7,25,19 
S REM 


E SARA A A IA Y 
DATA" DALT 1 cl" 
DATA1,9,0,7,25,9,1,4,1,7,25,11 

peral-2,0 7,25,13,2,9,0,7,25,19 


IA A A OS 
DATA" AA a AMAN TIA 05 ms 
DATA1,9,0,7,25,9,1,4,1,7,25,11 
DATA1,2,0,7,25,13,1,2,0,7,25,15 

8 7 25, 19 


A A AR A AA, 1 
DATAN TIA "ATT e A 
DATA1.9,0,7,25,9,1,4,1,7,25,11 
DATA1,2,0,7,25,13,1,9,0,7,25,15 

Lai 13,0,7,/25,19 


A IAS A A A 
DATACIT ATA 4/ ALTO") "DOT A] AL" 
DATA1,9,0,7,25.9,1,4,1,7,25,11 
DATA1,2,8,7,25,13,1,2,0,7,25,15 

lA AE 


DATA" a IRA a BL", DI tro" 
DATA"MTANTO 4/7 ALTO"), "5717 
DATA1,9,0,7,25,9,1,9,0,7,25/11 
DATA1,2,0,7,25,13,1,2,0,7,25,15 
DATA2,4,1,7,25,19 

PRE ON NM Ms e 

REI Moo POSICIONADO EN X.Y malo 

POKE 211,X 

POKE 214,Y 

Sys58732 

RETURN 

REM NON AYUDA moto 

PRINTHOS; :PRINTCHR$(142); 

POKE 53280.6 

PRINTTAB(3)> "MUMACRSR RIONT, : MI DESPLAZA DERECHA " 


PRINTTABC3)"MMCRSR LEFT Mi DESPLAZA IZQUIERDA” 
PRINTTAB(3)"MAMACRSR UP : M DESPLAZA ARRIBA  " 
PRINTTABC3)"MAACRSR DOWN  : Mi DESPLAZA ABAJO sl 
PRINTTABC3> "MA Fi” : Mi ANULACIÓN y 
PRINTTABC(3) "MA FI” : 1 INTRODUCCION E 
PRINTTAB(3) "Mia FS” : $ BORRADO pal 
PRINTTABC3) "Mia F7” : MRETORNO AL MENU  " 
PRINTTAB(3)"MACTRL+Y : M AYUDA A 
PRINTTABC3)"MARETURN MU ALINEAR » 
PRINTTAB(4>"Mh PULSE UNA TECLA PARA VOLVER" 


DETR$: IFR$w""THEN13066 
POKES3280, 14: RETURN 

REM RESTORE DATA 

RESTORE 

FOR 19 TO 62:READ D:NEXTI 
FOR l=1 TO 7:READ X$:NEXTI 
FORK=1 TO 3 

FOR 1=8 TO 62:READ D:NEXTI 
NEXT K 


IF Lv<A THEN RETURN 
FOR I=i TO LV:READ LV$:NEXTI 
RETURN 


RELACION DE LAS VARIABLES COMMODORE 64 


Matriz de los buffers (uno por campo) 
Tipo de los campos 

Longitud de los campos 

Número decimal de los campos 


Límites para la aceptación en ASCII 
del carácter introducido 

Flag para lectura en vacío (RESTORE 
nnn, simulado) 


Coordenadas para el posicionado 
del cursor 

Coordenada horizontal sprite del 
indicador del menú (fija) 
Coordenada vertical sprite del 
indicador del menú (variable entre 
79 y 223) 

Aceptación para el GET del 

menú 

Número de campos 

Longitud del campo 

Número de decimales 

Valores asociados a los comandos 
(1a15) 

Contador de caracteres en el campo 
Código ASCII de A$ 

Parte izquierda del buffer 

Parte derecha del buffer 

Carácter adquirido por teclado 


Coordenadas 


Coordenadas de los campos 


Coordenadas de las selecciones 


Códigos ASCII de los comandos 
reconocidos 

Descripciones de las máscaras vídeo 
Voces del menú principal 

Blank (espacio en blanco) 

”E” (por error) 

”." (punto decimal) 

"—" (símbolo de campo 
alfanumérico) 

"=" (símbolo de campo numérico) 
Cursor a la derecha (tecla "CRSR”) 
Cursor hacia abajo (tecla "CRSR”) 
Borrado de la pantalla 

(tecla SHIFT+CLR/HOME) 

Tecla f1 


Coordenadas cabecera menú 


Número de voces del menú zi 


Za, = | Valores calculados 


Coordenadas iniciales voces menú D, XS, LV$ 
Espaciado entre 2 líneas de menú 
Flag de salida del menú para la 


opción elegida (0<OPZ<6) 


Empleados sólo por la lectura 
en vacío (RESTORE nnn, 
simulado) 


CARACTERES ESPECIALES COMMODORE 64 


Carácter Función realizada 


PRINT"pp" 


Función realizada 
Caract. en blanco (CTRL+2) 


Carácter 
PRINT"=" 
PRINT"" 


Código para desplazar el cursor 
a la derecha en el modo directo 
(CRSR $ sin SHIFT) Caracteres en azul 

a (COMMODORE+7) 
PRINT"N" Código para mover en modo 
directo el cursor hacia abajo 


(CRSR 4 | sin SHIFT) di 


PRINTUN" 
PRINT" r 


PRINT"=" 
PRINT">" 


PRIWT" 0" 
PRINT"=" 


PRINT" 1" 


Home (tecla CLR/HOME) 


Tecla f7 


PRINT"" Código de borrado de pantalla 


(SHIFT+CLR/HOME) Tecla COMMODORE +A 


SHIFT+* 
Gs 
Gi 
Gx 


SHIFT +— 


Caracteres en verde claro 
(COMMODORE +6) 


PR 1 HT . 1 


Caract. en inverso (CTRL+9) 


PRINTOA 
PRIMT"R" 
PRINT"m" 


Caract. en amarillo (CTRL+8) 


Caract. en modo normal 
(CTRL+0) 
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El Cammmordara GA 
El COMMOGdOore 0/ 


Características técnicas 


"m Microprocesador Rokwell 6510 (8 bits), completa- 
mente compatible con el Assembler 6502. Opción 
para el microprocesador Zilog 280 

CPU dedicada únicamente a la gestión vídeo 
Sprites gráficos 

Sintetizador musical 

Enlace con el protocolo VIDEOTEL 

Alta resolución gráfica (320x200 pixels) 

16 colores 

Interfaces IEEE-488 y RS232C 

Compatibilidad con software de los sistemas Com- 
modore 4000 y 8000 

Se conecta al monitor o al televisor 

Modulador de UHF interno 

Salida para amplificador exterior 

El mismo juego de caracteres para los sistemas 
Commodore 4000 y 8000 

Acepta cartuchos programados por conexión 
Puerta de usuario completamente programable 

2 puertas para joystick, pluma óptica o paddle 
Trabajo en red (networking) 

Interfaz para periféricos estándar: grabador, unidad 
de disco, impresora 


Dimensiones: 404 x 216 x 75 mm. Peso: 1,82 kg. Ali- 
mentación: 220 V c.a. ] 
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Capacidad de memoria. El Commodore 64 está dota- 
do de una capacidad de memoria total de 64 Kbytes 
distribuida así: 

Memoría de sistema: 20 Kbytes ROM, 3 Kbytes RAM. 
Memoria de usuario: 38 Kbytes RAM. 

Si el intérprete Basic no se utiliza, la memoria RAM de 
usuario se convierte en 54 Kbytes. 


Teclado. Qwerty estándar de 62 teclas. Modo mayús- 
culas/minúsculas (estado texto) y modo gráficos (62 
caracteres gráficos predefinidos). Hay cuatro teclas 
de función programable. 

Todas las teclas pueden reprogramarse. 


Monitor. Puede conectarse al televisor o a un monitor 
en colores. 

Los colores del borde y de la pantalla pueden variarse 
para un total de 255 combinaciones diferentes. Los 
caracteres (gráficos o de escritura) pueden presentar- 
se en 16 colores diferentes, en positivo o invertidos. 
La máxima capacidad de presentación es de 25 lí- 
neas por 40 columnas. 


Gráficos. En el teclado hay disponibles 62 caracteres 
gráficos predefinidos, que pueden presentarse en 16 
colores diferentes, en positivo o invertidos. 

Pueden definirse hasta 8 sprites en 8 colores diferen- 
tes. El sprite también puede ser multicolor. Prioridad. 


pantalla/sprite y sprite/sprite especificable; autodetec- 
ción de las colisiones sprite/sprite y sprite/fondo; posi- 
bilidad de duplicar las dimensiones del sprite (normal- 
mente de 24x21 pixels). : 

Los gráficos de alta resolución están gestionados en 
modalidad bit-map. La definición del monitor en gráfi- 
cos es de 320x200 pixels. Son posibles tanto el scroll 
vertical como el horizontal (matriz por matriz), bien tra- 
bajando en modo normal, bien en modo de alta resolu- 
ción. Para un fácil uso de la alta resolución y de otros 
softwares gráficos hay un cartucho Basic externo. 


Sonido. Contiene un sintetizador sonoro dotado de 3 
voces separadas con una extensión de 9 octavas ca- 
da una. Las formas de onda que pueden generarse 
son cuatro: diente de sierra, variable, impulso y ruido. 
El generador sonoro (SID) es del tipo ASDR (attack, 
substain, decay, release) programable. Filtros progra- 
mables para cada voz: pasa-alto, pasa-bajo, pasa- 
banda, salida de incisión. 

El SID (sound interface device) habilita la creación de 
la música al ordenador. La calidad tonal del sonido 
producido puede variarse para simular instrumentos 
como la trompeta, el arpa, el violín, etc. El SID tiene 
tres voces separadas que pueden hacerse sonar por 
separado, al unísono o en armonía, y un generador de 
ruido blanco que produce efectos de percusión. 


Lenguaje. La máquina se suministra con intérprete 
Basic residente. Hay disponibles un compilador Basic 
(PETSPEED) y otros lenguajes, como UCSD, Pascal, 
COMAL, LOG, FORTH. 

A continuación se presenta una relación del Basic del 
Commodore 64. 


Variables simples 


Tipo Nombre Campo 

Reales XY + 1./0141183E + 38 
+ 2.93873588E — 39 

Enteros XY% + 32767 


Cadena XY$ De O a 255 caracteres 


X es una letra (A-Z), Y es una letra o una cifra (de O a 
9). Los nombres de variable pueden tener más de dos 
caracteres, pero sólo se reconocen los dos primeros. 


Variables estructuradas 


Tipo Nombre 
Una dimensión XY (5) 
Dos dimensiones XY (5,5) 
Tres dimensiones XY (5,5,5) 


Donde sea necesario pueden utilizarse matrices con 
un máximo de 11 elementos (índices de O a 10) sin 
haberlas dimensionado previamente. Las matrices de 
más de 11 elementos deben dimensionarse (DIM). 


Operadores algebraicos 


= Asigna un valor a la variable 
1 Elevación a un exponente 


+ Multiplicación 
/ División 

+ Suma 

=- Resta 


Operadores lógicos y relacionales 


Igual 

Diferente de 

Menor que 

Mayor que 

Menor o igual que 

Mayor o igual que 

NOT Not lógico 

AND And lógico 

OR Or lógico 

La expresión vale 1 si es verdadera, y O si es falsa. 


V 


VAVAAII 


Comandos de sistema > 


LOAD "NOMBRE” Carga un programa desde la cinta 
SAVE "NOMBRE” Salva un programa en cinta 

LOAD "NOMBRE”, 8 Carga un programa del disco 
SAVE "NOMBRE”, 8 Salva un programa en cinta 


VERIFY "NOMBRE" Comprueba que el programa resi- 
dente en memoria se ha salvado (SAVE) sin errores 


RUN Ejecuta un programa 

RUN xxx Ejecuta un programa desde la línea xxx 
STOP Interrumpe la ejecución 

END Termina la ejecución 


CONT Reemprende la ejecución de un programa des- 
de la línea en que se interrumpió 


PEEK (X) Da el contenido de la posición de memoria X 


POKE X, Y Cambia el contenido de la posición X por el 
valor Y 


SYS xxxxx Salta a un programa en lenguaje máquina 
empezando en xxxxx 


WAIT X, Y, Z El programa espera hasta que el conteni- 
do de la posición X, donde se ha realizado un OR con 
Z y un AND con Y, es diferente de cero 


USR (X) Transmite el valor de Z a la subrutina en len- 
guaje máquina 


Comandos de edición y de formateado 


LIST Lista todo el programa 
LIST A-B Lista desde la línea A a la línea B 


REM Mensaje de comentario; es ignorado durante la 
ejecución del programa 


TAB (X) Utilizado en las instrucciones PRINT. Espacia 
X posiciones en la pantalla 


SPC (X) Imprime (PRINT) X espacios vacíos en la línea 
POS (X) Da la posición actual del cursor 
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lea a 


8/0/0018 Aaa 


CLR/HOME Posiciona el cursor en el ángulo superior 
izquierdo de la pantalla 


SHIFT + CLR/HOME Borra la pantalla y coloca el cur- 
sor en la posición de partida 


SHIFT + INST/DEL Inserta espacios en la posición ac- 
tual del cursor 


INST/DEL Borra el carácter en la posición actual del 
cursor 


CTRL Cuando se emplea con la tecla numérica de los 
colores, elige el color de los caracteres. Puede utilizar- 
se en la instrucción PRINT 


Teclas CRSR Desplazan el cursor arriba y abajo, hacia 
la derecha y hacia la izquierda de la pantalla 


Tecla COMMODORE Cuando se emplea con SHIFT 
elige entre mayúscula y minúscula y modo de pantalla 
para gráficos. Cuando se emplea con una tecla de co- 
lor numérica, elige el color opcional del texto 


Matrices y cadenas 


DIM A (X, Y, Z) Define los índices máximos para A; 
reserva espacio para (X + 1) x (Y + 1) « (Z + 1) ele- 
mentos partiendo de A (0,0,0) 


LEN (X$) Da el número de caracteres de X$ 


STR$ (X) Da el valor numérico de X$ convertido en una 
cadena 


VAL (X$) Da el valor numérico de X$ hasta el primer 
carácter no numérico 


CHR$(X) Da el carácter ASCII cuyo código es X 

ASC(X$) Da el código ASCII del primer carácter de X$ 
LEFTS(A$,X) Da los X caracteres a la izquierda de A$ 
RIGHTS(A$,X) Da los X caracteres a la derecha de A$ 


MID$(A$,X,Y) Da y caracteres de A$ empezando por 
el carácter X 
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PTY BES 


A a 
a [E 


AJA 


Comandos de entrada/salida 
INPUT A$ o A Presenta ? en la pantalla y espera que el 
usuario introduzca una cadena o un valor 


INPUT "ABC”; A o AS Presenta un mensaje y espera 
que el usuario introduzca un valor 


GET A$ o A Espera que el usuario escriba un valor o 
un carácter: no es necesario RETURN 


DATA A, "B” Inicializa una serie de valores que pue- 
den ser empleados por la instrucción READ 


READ A$ 0 A Asigna el siguiente valor DATA a A5o A 


RESTORE Restablece el puntero de datos al principio 
leyendo (READ) de nuevo la lista DATA 


PRINT'A = "Y; A Presenta la cadena "A = 
de A 


"y el valor 


Flujo del programa 
GOTO X Salta a la línea X 


IFA = 3 THEN 10 IF (si) la sentencia es verdadera 
THEN (entonces) ejecuta la línea 10; si es falsa, ejecu- 
ta la primera línea que sigue 

FOR A = 1 TO 10 STEP 2: NEXT Ejecuta todas las 
instrucciones entre FOR y el correspondiente NEXT, 
con A que va de 1 a 10 en incrementos de 2. El incre- 
mento es 1 excepto donde se especifica de otro modo 
NEXT A Define el fin de la iteración 


GOSUB 2000 Salta a la subrutina empezando por la 
línea 2000 


RETURN Indica el final de la subrutina. Vuelve a la ins- 
trucción que sigue al GOSUB más reciente 


ON X GOTO AB Salta al número de línea X de la lista. 
Si X = 1, salta a A, etc. 


ON X GOSUB AB Salta la subrutina a la línea X-ésima 
de la lista 


EA 
La lógica del programa 


El problema puede resumirse en términos muy 
sencillos. 

Dados algunos valores numéricos de entrada de- 
ben aplicarse las fórmulas adecuadas al tipo de 
cálculo elegido para obtener el resultado. 

En general deben realizarse estas operaciones: 


m Presentación del menú 

m Presentación de la máscara vídeo correspon- 
diente a la función seleccionada 

m Introducción de los datos y cálculo 


En la figura de abajo se ha representado el dia- 
grama de flujo general. Las subrutinas que lo 
componen ejecutan las siguientes funciones: 


1000 Inicialización. Implanta los valores inicia- 
les de las constantes. En esta versión del 
programa, la subrutina de inicialización no 
se emplea. Dada la sencillez de las fun- 
ciones ejecutadas se ha preferido iniciali- 
zar localmente los parámetros utilizados 
de vez en cuando 


1300 Presenta y gestiona el menú 


10000 Carga la descripción de la máscara vídeo 
correspondiente a la voz del menú selec- 
cionada 


2000 Presenta la máscara 
3000 Data entry de introducción y cálculo. 


- 
" 


PROGRAMA PRINCIPAL 


Implanta los valores iniciales de 
todas las variables de uso 
común 


La voz seleccionada 
está en OPC 


implanta los valores de las 
variables a la voz particular, 
por ejemplo tipo y longitud 
de los campos 


Presenta con las descripciones y 
los formatos definidos en los DATA 
de la máscara particular 


Gestión de la máscara 
(introducción y/o variación de datos). 
Desarrollo cálculos. 

Presentación resultados. 
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Estas rutinas están escritas 
en forma parametrizada y se 
utilizarán en todas las apli- 
caciones, aunque a veces 
será necesario modificarlas 
algo. Su estructura sólo se 
ha presentado en esta fase; 
después se utilizará sin co- 
mentarios. Los diagramas 


Las descripciones a 


de flujo son indicativos y, en presentar están 

; fina. contenidas en una serie de DATA, 
algunos Casos, simplifica Para modificar el menú basta 
dos. Para el desarrollo exac- con variar estos DATA 


to del programa deberán 
consultarse los listados, 


El bloque Inicialización con- La rutina es completamente 


tiene la asignación, con ins- parametrizada; 

trucciones DATA o directas el usuario puede definir, bien 
q : el número de líneas que 

de las constantes utilizadas componen el menú particular, 


en las otras partes del pro- bien la distancia entre 
grama. No presenta dificul- ADEAn 

tades, por lo que el diagra- 
ma de flujo se ha omitido. Su 


generalización está limitada Anos: del despleziadenta 
sólo a la funcionalidad, Pa la posición para evitar 
puesto que los valores de- que salga de las líneas 
penden del tipo de progra- previstas 


ma y de la máquina. Sin em- 
bargo, las variables siempre 
tienen el mismo nombre sim- 
bólico; de esta manera cada 
programa podrá referirse al 
correspondiente listado, 


Menú (subrutina 1300). Se ER 
trata de una rutina de em- carácter 
pleo generalizado para la no: 
presentación y la selección | “9moet 
de las voces de un menú; se 
utilizará en todos los progra- 


implanta lo: 


nuevos valores 


Las teclas de desplazamiento 


mas tal como indica el dia- ni NN 

¡ j +— desplazan verticalmente 
grade Ei E let = desplazan horizontalmente 
líaridades de cada máquina, 


la lógica realizada presenta 
grandes diferencias, incluso En la salida, la variable OPC 
estructurales. contiene el número 


correspondiente 


En esta rutina se utilizan al- a la voz seleccionada 


gunas teclas funcionales 
cuyos valores (ASCII) se 
asignan directamente a la 
rutina y no a la inicialización. 


Así se tiene una duplicación (*) Estas partes dependen En particular, en la versión 
de la fase de asignación pe- de la máquina ulilizada; C-64, el símbolo que indica 


H o hay que consultar el lis- la voz seleccionada es un 
ro también una mayor flexi tado correspondiente sprite y, por tanto, en el lis- 
bilidad, porque la 1300 no , tado hay algunas instruccio- 
queda ligada a la ¡nicializa- nes más para su definición y 
ción. gestión 


La subrutina del menú utili- 
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za otras dos subrutinas: la 1300 para la presenta- 
ción de las voces y la 11000 para el posicionado 
del cursor. Esta última está estrechamente ligada 
al tipo de máquina y no puede generalizarse. 
La 1330 prevé 11 leyendas, de las cuales la pri- 
mera es la cabecera del menú y las otras 10 son 
las posibles voces. 

Esta rutina se presenta en la forma más general y 
prevé la posibilidad de gestionar un vídeo en co- 
lores con diferentes modos de presentación (in- 
vertido y parpadeante, además del normal). La 
forma generalizada así es de ejecución lenta, por 
lo que su uso sólo es conveniente en la versión 
compilada. En Basic interpretado puede eliminar- 
se todo el bloque de gestión del atributo, obte- 
niendo así una versión más rápida. 


Posicionado del cursor (subrutina 11000). Esta 
rutina también es de empleo general y se utilizará 
en todos los programas. Hay previstas tres ver- 
siones, una para cada máquina de referencia: 


1/ Máquinas que prevén el direccionado del cur- 
sor con instrucciones Basic. 

2/ Sistemas que usan códigos particulares, aun- 
que permiten el direccionado por línea y por 
columna. 

3/ Máquinas que no prevén funciones específicas 
de direccionado. 


El primer tipo utiliza instrucciones Basic como 
HTAB y VTAB de los sistemas DOS. En estas má- 


quinas, la rutina se reduce a estas dos instruccio- 
nes. En el segundo tipo, el desplazamiento se ha- 
ce enviando al vídeo determinados códigos AS- 
Cll; por tanto, la instrucción necesaria es PRINT 
seguida de los oportunos códigos. 
Generalmente se necesitan tres caracteres: el pri- 
mero para activar la función de desplazamiento 
del cursor, y los dos que siguen para indicar la 
línea y la columna. Por tanto, la instrucción com- 
pleta es del tipo 


PRINT CHR$(27) + CHRS(K) + CHRS(X) + CHAS(Y) 


K es un código que indica la función de posicio- 
nado del cursor; el código 27 [CHR$(27)] es el de 
ESC, que activa el modo comandos. 

Para este tipo de gestión no se ha previsto el dia- 
grama de flujo, puesto que la rutina se reduce a la 
única línea anterior con eventuales controles so- 
bre las variables X e Y. 

La última forma es la más general porque no em; 
plea otras instrucciones que las normales del Ba- 
sic. Antes de usarla deben implantarse los códi- 
gos de desplazamiento; por tanto, en el programa 
que la utiliza, y en general en la subrutina 1000 de 
inicialización, deben asignarse los valores: 


UPS = Desplaza una línea hacia arriba 
DN$ = Desplaza una línea hacia abajo 
LFS = Desplaza un carácter a la izquierda 
RG$ = Desplaza un carácter a la derecha 


Por ejemplo, en el Commodore 64 se tiene: 


POSICIONADO DEL CURSOR 


Posicionado inicial 
en el extremo de arriba de la 
izquierda de la pantalla 


A 
E 
E 


En algunas versiones para las 
que no existe la instrucción 
de direccionado de cursor 

se necesitan dos bucles. Uno 
sobre la columna y otro 
sobre la línea 
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UPS = CHR$ (145) 


DN$_ =CHR$ (17) 
LES = CHRS (157) 
RG$ =CHR$ (29) 


Estas asignaciones deberán incluirse en la 1000 
para que sean conocidas por el resto del progra- 
ma y utilizables por la 11000. También pueden 
escribirse en la misma 11000, pero entonces se 
tendrá una velocidad de ejecución más lenta. 

El desplazamiento del cursor se obtiene combi- 
nando oportunamente los cuatro desplazamien- 
tos elementales, pero teniendo en cuenta que son 
desplazamientos relativos y no absolutos. 

Por ejemplo, suponiendo que el cursor se en- 
cuentra en la posición X = 5 e Y = 12 (columna 5, 
linea 12), para posicionarlo en X = 8, Y = 12 son 
necesarios tres desplazamientos a la derecha. Es 
decir, la 11000 debe recordar la posición anterior 
para calcular los incrementos hasta la nueva po- 
sición, a diferencia de las otras formas en las que 
el direccionado es absoluto. 

En la figura de la página 29 se ha representado el 
diagrama de flujo correspondiente a esta versión. 
Si las variables XP e YP contienen el último posi- 
cionado efectuado, y X e Y son las coordenadas 
de la nueva posición deseada, los desplazamien- 
tos según los dos ejes son SX = X— XP, SY = Y — 
YP. Al final del desplazamiento, la nueva posición 
(X.Y) se memoriza en XP, YP. 

A la primera llamada de esta subrutina, los valo- 
res de XP e YP son 0, puesto que aún no contiene 
ningún posicionado. Estos valores corresponden 
al cursor arriba a la izquierda, pero es posible 
que no esté en esta posición, por ejemplo des- 
pués de posicionados anteriores; por tanto, con- 
viene inicializar la rutina con la instrucción 
CLEAR/HOME, que borra la pantalla y posiciona 
el cursor arriba a la izquierda. 


Las máscaras vídeo. En todos los programas, la 
fase más delicada es la introducción de los datos; 
la calidad del software puede juzgarse con la es- 
tructura que se ocupa de esta función. 

Las condiciones que debe satisfacer son tres: 


m Funcionalidad Las operaciones manuales 
deben ser claras y rápidas. A 
veces, la elección de una te- 
cla en lugar de otra simplifica 
los movimientos y hace más 
fácil el uso del programa 


m Claridad La introducción debe guiarse 
con leyendas sencillas, bre- 


ves y sin ambigúedad 


El software de gestión de las 
introducciones de datos es 
difícil de modificar. Para su- 


A Generalidad 
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perar esta dificultad conviene 
utilizar rutinas generalizadas 
que puedan adaptarse a ca- 
da situación, evitando así 
reescribirlo para cada nueva 
aplicación. 


La gestión de las máscaras vídeo de esta aplica- 
ción tiene el carácter de generalidad indispensa- 
ble para permitir su uso en casi todos los progra- 
mas; además, su estructura parametrizada per- 
mite aportar modificaciones e implantaciones sin 
intervenir en la lógica del programa. 

Esta flexibilidad elimina la posibilidad de errores y 
permite realizar diferentes pruebas hasta encon- 
trar la mejor funcionalidad y estética, 

La lógica seguida se resume en dos bloques: 


m Presentación de la máscara 
m Gestión 


La introducción de un dato puede esquemaltizar- 
se con tres operaciones: 


1/ Presentación de la pregunta. El programa de- 
be pedir claramente qué se desea, escribien- 
do en el vídeo la descripción del campo de 
introducción 

2/ Preparación del espacio reservado al valor a 
introducir. El usuario puede no recordar la lon- 
gitud o el tipo del campo. Por ejemplo, para 
los valores numéricos es muy difícil recordar el 
número máximo de cifras; el ordenador debe 
sugerirlo presentando junto a la descripción 
una serie de puntos, u otros símbolos, en un 
número ¡igual al de caracteres (letras o núme- 
ros a introducir). 


VALORES DE TP (+) 
EN FUNCION DEL TIPO DE CAMPO 


Valor Significado 


1 Numérico. Se aceptan los caracte- 
res de 0 a 9, el punto decimal (co- 
ma) y el signo menos 
Resultado de cálculo. Al hallar este 
valor, el programa realiza los cálcu- 
los indicados en la voz selecciona- 
da y presenta el resultado 
Alfanumérico. Se aceptan todos los 
caracteres con códigos entre A1 y 
A2, o sea en el campo de los síim- 
bolos alfanuméricos 
Sólo en presentación. El campo es- 
tá protegido (el usuario no puede 
acceder a él) y sólo se usa para 
presentar informaciones 
Presentación con introducción. 
Además de la presentación, este 
campo puede modificarse. 


..-r 


3/ Gestión de la máscara. 
Los distintos campos se LOGICA DE ASIGNACION DE LOS 


posicionan en diferentes PARAMETROS PARA LAS MASCARAS VIDEO 
partes de la pantalla; el (LECTURA DE LOS DATA) 


usuario debe poder des- 
plazarse de una parte a 
otra de la pantalla para 
introducir o modificar los 
valores. 


Estas funciones, muy senci- 
llas desde el punto de vista 
descriptivo, en realidad ne- 
cesitan programas avanza- 
dos y complejos. 

El tema se expondrá muy 


detalladamente, porque re- En este caso, la selección 


suelve uno de los principa- no se emplea (una sola 
les problemas comunes a máscara) 

lodas las aplicaciones. Otras máscaras 

La solución de los tres pun- eventuales realizadas fem 


de manera análoga Inicializa el número de 
campos de la máscara 


los anteriores implica que la 
máquina conozca algunos 
parámetros. 

Los datos a suministrar son: 


1/ Todas las descripciones 
a presentar en pantalla 
2/ Su posicionado; por 


ejemplo, la descripción Lise de los DATA 
XYZ debe empezar en la la descripción y 
columna 22, línea 10 (X pol queso soi 
= 22, Y = 10) 

3/ La posición de inicio de 


cada campo de datos, 
para presentar el puntea- 
do. No se ha dicho que el 
dato empiece inmediata- 


mente después de la Estas instrucciones, por ahora 
MO no necesarias, se presentarán 
descripción después 


4/ La longitud en caracteres 

de cada campo, con la 

que el programa presen- 

tará el correspondiente 

número de símbolos 

El tipo de campo para 

posibilitar la gestión co- 

rrecta 

6/ Eventuales atributos par- 
ticulares (escritura par- 
padeante, coloreada, in- 
vertida, etc.). 


5 


= 


La manera más sencilla de 
proporcionar estos valores 
es utilizar una serie de DATA 
que el programa carga ini- 
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cialmente y utiliza en la ges- 
tión de las máscaras. 


Gestión de las máscaras 
vídeo. La subrutina de lectu- 
ra.de los DATA es la 7000 y, 
por motivos que se verán 
claros más adelante, no 
puede insertarse en la inicia- 
lización (como sería lógico). 
Las variables utilizadas para 
memorizar los valores son: 


DS (20) 

Descripciones. Todo lo que 
se quiere que aparezca en 
pantalla, salvo el punteado 


DX(20), DY(20) 
Coordenadas (línea, colum- 
na) de inicio descripción 


BS (20) 
20 buffers de datos: uno pa- 
ra cada campo previsto 


Cx(20), CY(20) 
Coordenadas de inicio de 
cada campo. El punteado y 
la introducción de datos em- 
piezan, para cada campo, 
en posición. Por ejemplo, si 
B$(1) se coloca en la colum- 
na 19, línea 7, CX(1) = 19, 
CY(1) =7 


LC (20) 

Longitud de cada campo en 
número de caracteres. Por 
ejemplo, si el campo B$(4) 
tiene una longitud total de 6 
caracteres, LC(4) = 6 


ND (20) 

Número de decimales pre- 
vistos; si el campo tiene dos 
decimales, ND(4) = 2. Natu- 
ralmente, sólo se usa para 
los datos numéricos 


TP(10) 

Tipo de cada campo. En ca- 
da elemento de TP (+) se 
memoriza un valor numérico 
que constituye el código 
con el que la máquina iden- 
tifica el tipo de campo. 
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PRESENTA MASCARA 


ye 
EY 


y 


Principio bucle 


Las coordenadas de principio 
descripción están en DX(J) 

y DY(J); la descripción 

está en DS(J) 


A AS se transfieren tantos 
simbolos «—» como cuantos 
caracteres hay previstos en el 
campo. En algunos campos, la 
parte entera está separada de 
la decimal con el símbolo «.»: 


Los valores se memorizan 
(con los DATA) respectivamente 
en LC(J) y ND(J) 


y 


A B3(J) se transfieren tantos 
espacios en blanco como 
cuantos son los caracteres 
previstos; de esta manera, 

el buffer ya tiene la longitud 
exacta, condición esencial para 


una gestión correcta del disco 
NO - 


ED 
uyS! 


(*) Si el campo es del tipo «en presentación», en lugar de AS se pre- 
senta B$ (J) y se salta el bloque siguiente 


Los previstos se indican en la tabla de la página 
30, La matriz está dimensionada a 10 para dejar 
sitio a futuras implantaciones. Los campos no 
asignados se ponen a 0. 

En un programa puede haber previstas más más- 
caras vídeo, mientras que las matrices que de- 
ben contener los datos son únicas. 

Para cargar los valores oportunos debe llamarse 
la 7000 pasando como parámetro el número que 
distingue la máscara seleccionada (este número 
también puede usarse para indicar el eventual fi- 
chero en que memorizar los datos). La variable 
utilizada, por ejemplo TR, debe ponerse numéri- 
camente al Índice de la máscara; por tanto, para 
seleccionar la primera máscara debe implantarse 
TR = 1, para la segunda TR = 2, etc. 

En el interior de la 7000 se necesita una instruc- 
ción de «maniobra» que permita cargar los opor- 
tunos DATA en función del valor de TR. Pero hay 
que tener en cuenta que ésta es una de las partes 
menos generalizables debido a la diferente ma- 
nera de tratar los DATA en cada máquina. 


Presentación de la máscara (subrutina 2000). 
Presenta la máscara vídeo empleando los valores 
cargados con la 7000. La primera parte se refiere 


a las descripciones y la segunda a los datos. El 
diagrama de flujo puede verse en la página 32. 


Data entry (subrutina 3000). Es una de las ruti- 
nas más complejas, como puede deducirse de 
los diagramas de flujo de las páginas 34 a 39. 
En esta primera fase no la describiremos de ma- 
nera profunda, puesto que debe considerarse co- 
mo un instrumento para obtener una determinada 
finalidad (programa de aplicación) y, por tanto, 
para utilizar sin ulteriores profundizaciones. 

Sin embargo, los diagramas de flujo están deta- 
llados y explicados, y por sí solos pueden consti- 
tuir la clave para comprender las funciones y la 
lógica de la rutina. El uso continuado que se hará 
de ella facilitará su comprensión. 

Por ahora bastará con indicar que la rutina prevé 
el desplazamiento del cursor en las cuatro direc- 
ciones, así como algunas teclas funcionales con 
las cuales pueden activarse determinadas funció- 
nes. Los códigos de las teclas de desplazamiento 
y de las funcionales están en la matriz TF («) (por 
ahora sólo son activas 12), inicializada en función 
del tipo de máquina en una zona adecuada del 
programa. 

En la primera tabla de abajo se han representado 


TECLAS FUNCIONALES 


Commodore 64 
Tecla Código 


CRSR 4 145 


Función 


Desplaza hacia arriba 
Desplaza hacia abajo 
Desplaza a la derecha 
Desplaza a la izquierda 
Introducción 

Anula 

Vuelve al menú 


Tecla 


Philips (MSX) 
Código 


CTRL + W 
CTRL + Z 
CTRL +5 
CTRL +A 
CTRL + E 
ESC 

CTRL +R 


Alinea y convalida RETURN 
Soporte ayuda CTRL + Y 
Inserta carácter F4 

Borra carácter F3 


CTRL + RETURN 
CTRL + Y 

CTRL + 1 

CTRL +D 


NUMERACIONES DE LAS SUBRUTINAS EN EL DATA ENTRY 
3000 Data entry. Punto de entrada 


3240 Lectura de un campo 

3630 Gestión comandos 

3520 Transferencia de un carácter al buffer 
4270 Comprueba la presencia del punto 


4080 — Alineado de un campo 


3740 Inserta un carácter en el buffer 
3910 Borra un carácter 
9000 Cálculo y presentación 


11000 Posiciona el cursor (no indicado) 
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los códigos para las varias 
versiones. Para adaptar el 
programa a una u otra má- 
quina basta con cambiar los 
valores asignados a TF (+). 
En la segunda tabla se rela- 
cionan las subrutinas que 
componen el data entry. 

El uso de esta función es au- 
tomático; basta con llamar la 
subrutina 3000, que a la sali- 
da proporciona B$ (+) con 
los datos introducidos. 

El módulo antepuesto al da- 
ta entry está estructurado 
como un programa fijo. Esto 


es evidente por el fracciona-. 


do de las funciones funda- 
mentales en varias subruti- 
nas que el módulo principal 
llama de vez en cuando sub- 
rutina 3000). 

La 3000 empieza con un bu- 
cle sobre los campos de in- 
troducción. El índice J varía 
de 1 a NUC, que es el nú- 
mero de campos en la más- 
cara. El valor de NUC va a la 
3000 como parámetro. 

Para cada uno de los cam- 
pos de introducción, la ruti- 
na considera por separado 
los caracteres que consti- 
tuyen el campo, contados 
por CC. Para cada incre- 
mento unitario de CC se lee 
un carácter a través de la 
subrutina 3240. Si el código 
adquirido no es un coman- 
do, significa que el usuario 
está tecleando efectivamen- 
te los caracteres que desea 
introducir. En este caso, la 
lectura de los caracteres 
prosigue, previo control de 
fin de campo. 

En cambio, si durante el te- 
cleado de los caracteres en 
el campo actual, el usuario 
decide introducir un coman- 
do (por ejemplo, si desea 
borrar los caracteres intro- 
ducidos), interviene nueva- 
mente la 3240. En el caso 
de que el comando corres- 
ponda al desplazamiento 
del cursor en el campo de 
introducción, se calcula la 
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DATA ENTRY 


no 4% 


Nuevo campo 


Oo———=y 


y 


Principio loop sobre campos 


CC es el contador de 
caracteres introducidos en el 
campo actual 


La 3240 responde con el 

flag FS + 0 si se pulsa 

una tecla de comando, 

por ejemplo de desplazamiento 
del cursor 


+ 
¿Ll ¡OS 
terminados? 


LECTURA DE UN 
CAMPO 


Los campos de cálculo no 
necesitan ninguna introducción 


AE 


EY 
EJ > 


y 


Js 


ys 
E 
me: 
¡MA 
l 


50 


nueva posición y se prosi- 


gue. 

Cuando CC ha llegado al 
valor LC(NC) (longitud del 
campo NC-ésimo) se pasa a 
considerar el campo  si- 
guiente. En el caso en que el 
cursor llegue al principio del 
campo «resultado», la 3240 
se preocupa de activar la ru- 
tina de cálculo. 


Lectura de un campo (sub- 
rutina 3240). En la sección 
previa a la lectura del cam- 
po, el primer control a efec- 
tuar depende del tipo de 
campo. Como la rutina es 
parametrizada, debe prever 
la posibilidad de que el 
campo actual esté sólo en 
presentación, en cuyo caso, 
el programa debe pasar a 
considerar el campo  si- 
guiente (este control no está 
en el diagrama de flujo; 
véanse los listados). 

El control que sigue sirve 
para comprobar si el campo 
actual está destinado a con- 
tener el resultado del cálcu- 
lo. Si así es, se activa la 
subrutina 9000; de otro mo- 
do, el campo puede ser nu- 
mérico o alfanumérico. En- 
tonces se realiza un control 
sobre el buffer de acumula- 
ción de los caracteres te- 
cleados. Si en la posición 
actual hay el punto decimal 
(PD$) es necesario despla- 
zar el cursor a la derecha un 
lugar sin aceptar caracteres. 
En el caso general, la posi- 
ción ocupada por el cursor 
está destinada a acoger un 
carácter, recibido el cual, la 
rutina compara su código 
ASCII con el range de los 
permitidos. Superado este 
control, el siguiente com- 
prueba si se trata de un co- 
mando. Si es así, el control 
pasa a la 3630; de otro mo- 
do, el carácter es acumula- 
do en el buffer BS(+). 


Gestión comandos (subru- 
tina 3630). A la entrada en 


2 
«y no 
— 


La variable 
FS es un puntero 
cuyo valor es 
determinado por el 
comando introducido 


1759 


la rutina, la variable FS con- 
tiene el número correspon- TRANSFERENCIA AL BUFFER 
diente al comando introduci- 
do (los números progresivos 
de 1 a 15 son asignados por 
el programa). Después, los 
controles se realizan según 
la siguiente lógica: 


m Control de desplazamien- 
to en las cuatro direccio- 


nes (FS<5) 
m Control de alineado de SN$="" 
dato numérico (concomi- porque es cl jr 
i 7 r er mitr Cl y 
tancia RETURN y tipo de no hay otros 
campo = 1, osea numé- caracteres a su izquierda 


rico). El control pasa a la 
4080 

m Llamada cuadro de ayu- 
da (FS = 9). El control se 
transfiere a la 13000 NS = LEFTSIBS(NC), CC 1 

m Control de alineado de ii p 
dato no numérico (la 
4080 no desplaza el dato Análogamente a la parte 
introducido, pero lo com- izquierda, si el campo 


pleta con una serie de | fare derscna: SS ="" 


blanck) 
m Anulación de los datos in- 
troducidos en la máscara 
(FS = 6) 
m Retorno al menú (FS = 7) 
m Inserción de un carácter N = LC(NC)— CG indica el. 
z número de caracteres previstos 
(subrutina 3740) en el campo a partir de la 
m Borrado de un carácter posición actual 
(subrutina 3910). 


Borrado de un carácter [ER] 


(subrutina 3910). En el dia- 
grama de flujo (pág. 38) no 
se presentan los controles 
iniciales que sirven para 
comprobar la posibilidad 
efectiva de borrado (véanse 
los listados). 

La 3910 realiza una subdivi- 
sión del buffer BS(NC), que 
contiene los caracteres te- 
cleados, tomando la parte 
de la derecha y de la iz- 
quierda del carácter a bo- 
rrar. A continuación recons- 
truye el nuevo buffer, que 
contendrá las partes útiles 
del anterior más un espacio 
de cola (en realidad, el es- 
pacio es sustituido por el 
símbolo contenido en C$). 
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INSERCION DE UN CARACTER EN EL BUFER 


> 


El carácter no puede insertarse. 
El buffer se divide en dos partes: 
la de la izquierda de la posición 
de inserción (SN$) y la de 

la derecha (DS5) 


AS = SN$ + CS + DS 
C$ es el carácter a insertar 


La cadena A$ se sustituye 
con el contenido de B$ (NC); NC es 
el número del buffer actual 


LOGICA DE INSERCION DE UN CARACTER 


Cadena inicial El cursor se posiciona debajo 
contenida en BS (*) del tercer carácter, CC = 3 


A SN5 se A DES se transfieren 

transfieren CC — 1 LC(NC) - CC + 1 caracteres (en el ejemplo, 
(3-1 = 2) caracteres AB LC(NC) = 6, CC = 3, por lo que se 

a partir de la transfieren 6-3 + 1 = 4 caracteres 
izquierda a partir de la derecha) 


En la cadena se inserta 
un espacio (contenido en C$) 


A$ = SN$ + C$ + DES = ABb + DXZH 


De A$ se toma la parte izquierda correspondiente 
a la longitud del buffer 


Esta última operación es necesaria para prever el caso en el que 
el buffer ya completamente lleno asumiría, a causa de la inser- 
ción, una longitud superior a la prevista. 

Por ejemplo, si la longitud prevista del buffer fuese de 6 caracte- 
res, al insertar uno sería de 7; el último proceso vuelve el buffer a 
su valor exacto tomando de A$ 6 caracteres a partir de la dere- 
cha. Naturalmente, el último se pierde, por lo que la salida con- 
tiene ABb X DXZ 
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Alineado de un campo 
(subrutina 4080). Si la longi- 
tud del campo es 1 [LC(NC) 
= 1] no tiene sentido pedir 
el alineado, y la subrutina 
restituye el control. En caso 
contrario se comprueba si el 
campo sobre el cual se ha 
pedido el alineado es de ti- 
po numérico (o «resulta- 
do»). Si es así, el alineado 
se realiza justificando los 
datos a la derecha; de otro 
modo, el dato se completa 
con una serie de espacios 
en blanco. 


Cálculo y presentación de 
los resultados (subrutina 
9000). Según la opción se- 
leccionada en la fase de se- 
lección de la voz del menú 
(memorizando en OPZ), la 
9000 llama las diferentes 
subrutinas de cálculo (de 
9100 a 9600). 

Una vez efectuado el cálcu- 
lo pedido, realizado a través 
de sucesivas conversiones 
de los datos de tipo cadena 
al tipo numérico y viceversa, 
la 9000 controla la longitud 
del buffer final, que esta vez 
contiene el resultado. 

Si esta longitud es superior a 
la permitida, significa que el 
valor numérico excede los lí- 
mites previstos en el progra- 
ma. En este caso, el desbor- 
damiento se indica ponien- 
do en el buffer el carácter E 
(error), contenido en la va- 
riable ERS. 
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BORRADO DE UN CARACTER 


Extrae el contenido del buffer 
separando la parte de la 
izquierda del carácter a borrar 
de la derecha 


Para el caso 

- campo numérico 

— primer carácter = "” 
- cursor en posición 2 
no es posible el borrado. 
Lo mismo sucede si el 
cursor está en posición 1 


0004 AS 


ALINEADO 


Y 
y y” 


v3 


1 


CALCULO 


sh 


Se reclama 
una subrutina diferente t---=7 
según el tipo 

de cálculo requerido 


eS 
y 


Para ello 
se utiliza 
la función VAL 


Para la descripción 
de cada cálculo 
consultar el listado 


Si el resultado excede 

en número de cifras de la 
longitud del campo, 
sustituye el valor 
contenido en B$ por el 
simbolo “E” 


PE 
E] 
Cea y 


0 O > | 


E 


db 
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Los listados / Versión Apple ll 
10 REA -E->--_———— 
20, REM CALCULOS ECONOMICOS 


60 


70 


110 


120 
130 
140 
150 
160 


170 


320 


340 


370 
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REM VERSION DOS 


REA 


REM INICIALIZACIONES 


DIM TF (15) ,TP:(20),LC(20) ¿ND(20),0 
X (20) , CY (20) ,DX (20) , DY (20) 

DIM B$(20),D4(20) ,VO$(10),HES (7) 
REM CONSTANTES 


CHR$ (7): 
“q. 


"Er 
"MENU CALCULOS ECONOMICOS": 
CHAS (13): 

"Que 

GIUs = "o" 

s2=2: 

Mi = 1; 

8: 

1: 

3: 

3: 

1: 

7 

b: 

13 

A2 = 31 

HE$ = "COMANDOS. ESC/RETURN/CTRL W 
,A,5,2,1,D,R, Y" : 
HES(1) = "CTRL Y. AYUDA (<ESPAC. > 
PARA CONTINUAR) * 

HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION 5 

HES(3) = "RETURN. ALINEA Y CONVAL. 
«LA INTRODUCCION " 

HES(4) = "CTRL I, PERMITE INSERCI 
ON DE ESPACIDS  " 

HES(S) = "CTRL D. ANULA UN CARACT 
ER " 

HES(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL e 

HES(7) = "CTRL 64!,A,S,Z. MUEVEN EN 
LAS 4 DIRECC.  " 


E 
..».+.oon uno 


< 
o 
buon a ¡.2* (1. 


REM CARGA VOCES 
1 
RESTORE 


MA = NV +1 
FOR 1 = 1 TO NV: 
READ VOS (1): 


VO$(MA) = "FIN DE TAREA" 
FOR 1 = 17015 - 

READ TF (1) 
NEXT 1 


REM MAIN 
GOSUB 1300: 
REM MEN 


IF OPZ = (MA) THEN FOR I=1 


GOSUB 2000: 
REM MASCARAS 


60SUB 3000: 
REM ENTRADA DE DATOS 


IF FS += 6 THEN 350 
GOTO 320 
REA ——— 


1310 
1320 
1330 


1335 


1340 


1350 
1360 


1370 
1380 
1390 
1400 
1410 
1420 


1430 
1440 
1450 


1440 
1470 


1480 


REMO MENU PRINCIPAL 


PRINT “E,G,S,"; TAB( 11);"EDICION 
ES FORUM, S.A." 
INVERSE : 
X= x0: 
Y=2: 
GOSUB 11000: 
PRINT MPS: 
NORMAL. 
FOR 1 = MI TO MA 
Y = 1% 82 + YC: 
X = 4C:3 
GOSUB 11000 
11 =1 
IF II = (MA) THEN 11 = 0 
PRINT 113" “¿VO$(I) 
NEXT 
1 =M 
Yo= 14 982 + YC: 
X= XS: 
BOSUB 11000 
SP = YC - 1 
PRINT "=>"5 
GET 0PZ$: 
DPZ == VAL (0PZ$)3 
IF 0P29 = US$ THEN 1530 
IF OPZ' > NY THEN 1450 
1F 0F74 = 7E$ THEN X = XS: 
GOSUB 11000: 
FPRINT  SPC( SP)3= 
I = MA: 
GOTO 1420 
IF ASC (062%) > 48: AND ASC (0P2 
4) < 58 THEN X = XS2 
GOSUB 11000: 
PRINT— SPC( SP)53 
1 = 0PZ: 
GOTO 1420 
IF 0PZ$ < > GIUS THEN 1450 
X » XS: 
GOSUB 11000: 
PRINT  SPC( SP); 
pi E 
IF 1 > (MA) THEN 1410 
GOTO 1420 
X= XC3 
E A 
1 = 1: 
IF 1 > NV THEN II = 0 
INVERSE 
PRINT 113 "- "¡VO$(1) 
NORMAL 
DPZ =1 
RETURN : 


REMO 
REMO PRESENTA MASCARA 


SP.= 34 LEN (VOS(0PZ)) 
SP. un 
IF SP += 0 THEN 2100 
FOR J = 1 TO SP: 
SP4 = SP$ + BLS: 
NEXT 
LP = LEN (PROGS) 
SI = INT ((40 - LE) / 2): 
DE = 40 - LP - 81 
SIS = "2 
DES 2 
FOUR Y = 1 TO SI 
SIS = SIS + BL$ 
NEXT 
FOR J = 1 TO DE 
DES = DES + BL$ 
NEXT 
NORMAL: 
PRINT “E.G.S."3 TAB( 11); "EDICION 
ES FORUM, S.A.": 
INVERSE 
NORMAL: 
PRINT SIS + PROGS + DEb3: 
INVERSE 
NORMAL: 
PRINT "VOZ “¿OPZ¿" "32 


2210 


2220 


3180 


3170 


INVERSE : 

PRINT/SPCU 34); 

PRINT  SPC( 6);VOS(0PZ) + SPS$3 
PRINT SPC( 40)35 

NORMAL; 

FRINT HES3:; 

INVERSE 

NORMAL 3 


REM MASCARA 

FOR Y = 1 TO NUC 
AS on 
X= DX(d)s 
Y o DY(I)2 
GOSUB 11000: 
INVERSE : 
PRINT D$(3) 
NORMAL. 
IF TP(J) < > 5 AND TP(J) 
GA THEN 2330 
X= CX()3 
Yo= CY (ds 
GOSUB 11000 
PRINT B$(J) 
GOTO 2500 
NI = LC(J): 
N2 = ND(J): 
IF TP(9) = 1.0 TP) =2 
THEN C$ = NS$: 
GOTO 2350 
C$ = AS$ 
FOR Ti= 170 NY -= N2- 13 

AS = AS + CS: 

NEXT 1 


TF N2 = O THEN A$ = AS + 0h: * 


GOTO 2390 
AS = As + FD$ 
FOR 1 = 1 TO N2: 
AS = As + CS: 
NEXT 1 
X= 0x0: 
Y 2 CY (dde 
GOSUB 11000 
PRINT At 
BID = "0 
FOR Ke 1 TO NY = N2 - 1 
B$(J) = BS(1) + BLS 
NEXT K 
IF N2 = 0 THEN BS(J) = BS(J) 
+ BL$: 
6070 2500 
BJ) = B$(J) + PDS 
FOR K = 1 TO N2 
B$(0) = BS(J) + BLS 


NC de 

X= CXINC) +: 

Y OY ANO) 

CC =1 

G0SUB 3240 

IF FS = 0 THEN 3100 

1F: FS >:4- THEN 3210 
GOTO 3120 

mado ds 

1F J > NUC THEN 3030 
GOTO: 3040 

ON FS GOTO 3130,3150,3170,3190 
1F 3/2 1: THEN:D: == de 
GOTO 3040 

PRINT-BPS;2 

FS = 0: 

dos NuUCs 

GOTO 3040 

IF Y: < NUCO THEN Y = J + de 
GOTO 3040 

PRINT BPS31 

FS = 0: 

GOTO: 3030 

TF CC < LC(J) THEN S += 1: 
Cl: Cloo+ da 

A IE 

GOSUB 11000: 

GOTO 3060 

PRINT BP$: 

FS = 0: 

GOTO 3100 

FCC? 1THENS +. - 1: 
LO 00 bso 

XX - 1: 

GOSUB 11000: 


GOTO 3060 
PRINT BPS;: 
FS = 0: 
GOTO 3040 
IF FS > 8 THEN FS = 0: 
GOTO 3060 
1F FS = 8 THEN FS = 0: 
GOTO 3100 
RETURN: 
EIA A —Á 
REM LECTURA DE UN CAMPO 
REM en 
FS=0 
1F TP(NC) = 4 THEN RETURN 
1F TP(NC) = 2 THEN GOSUB 9000: 
RETURN 
IF MIDS (BS(NC)>,CC,1) = PD$ 
THEN X= X +93 
CC = CC +*S 
GOSUB 11000 
GET A$: 
TF Aé = "THEN 3320 
CA = ASC (AS): 
IF CA > A2 THEN 3380 
FOR I = 1 70 15 
IF TF(I) = (CA) THEN FS 


1F TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 0R (CA 
> = 48 AND CA:<  = 57) THEN 341 

y 

PRINT BP$;: 

GOTO 3320 

IF CA <  >:46 THEN 3440 

GOSUB 4270 

IF SWP = 1 THEN 3400 

S=-1: 

GOSUB 3520 

IF CC = LCINC) THEN RETURN 

(o A E 0 Y 


x=X +1: 
GOTO-3300 
A 


REM TRANSFERENCIA Al: BLUEF Ele 
RE e 
TF 000= do THEN SNS." 

GOTO 3570 

SN$ = LEFTS (BS(NC),CC —- 1) 
1F CC = LC(NC) THEN DSS = ""; 
GOTO 33590 

N = LCINC) - CC3 

DS4 = RIGHTS (BS(NC),N) 

BS (NC) = EN$ + Ad + DSS 

PRINT AS: 

RETURN 


REM 

1F FS > 5 THEN 3690 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

1F FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURM 
ON-FS - 9 GUSUB 3740,3910 


RETURN 

REM 

REMO INSERTAR 

REM nic 

IF CC = LO(NC) THEN PRINT EPS: 


RETURN 

IF CC = 1 THEN SNS = "": 
GOTO 3800 

SN$ = LEFTS (BS(NC),CC - 1) 
Ni = LO(NC) — ED + 12 

DS$ = RIGHTS (BS(NC),N) 
C$ = BLs 

AS = SNS + C$ + DSS 

BS (NC) =  LEFTS (A%,LC(NC)) 
XX = Xi 

YY i= Y 

X = CX(NC): 

Y o CY(NC)5 

GO0SUB 11000 

X= XX 

A NA 

PRINT B$(NC): 

Sim 1 

IF. RIGHTS (B$(NC),1) = PDS 
THEN 3780 

RETURN 
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7090 


7100 
7110 
7120 


7130 
7140 
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REM a 

IF TP(NC) < > 1 THEN 3960 
IF MIDS (B$(NC),2,1) = PD$ 
AND CC = 1 THEN RETURN 

IF CC-< 1 THEN PRINT BP$: 
RETURN 

IF CC = LO(NEY THEN DS$S = 
GOTO 4000 

N = LCINC) — CO: 

DS$ = RIGHTS (BS(NC),N) 

IF CC 0= 1 THEN SNS = ""z 
GOTO 4010 

SN$ =  LEFTS (B$(NC),CC - 1) 
1F TPINC) = 1 OR TP(NC) = 2 
THEN 0$ = NS$: 

GOTO 4030 

06 = ASé 

BS(NC) = SN$ + DSS + Ch 

X= M5 
YY = Y 
X= CXINC): 
Y = CY(NC): 

G05UB 11000 
X= Xt: 

Y = YY 

PRINT BS$(NC): 


REMO 


SMART 

IF LC(NC) = 1 THEN — RETURN 
Ni = LONE) - CC:+ 1 

1F CC = 1 THEN BS(NC) = "": 
GOTO 4150 

BS(NC) = LEFTS (BG(NC),CC 
e o) 

IF TPINC) = 1 OR TPNC) = 2 
THEN 4200 

FOR I = 1 TO Ni 


BS (NO) = BH(NC) + BLG 
NEXT 1 
GDTD 4240 
FOR 1 = 1 TOM 


BG/NC) = BLE + BR(NC) 

NEXT 1 

1F RIGHTS (BS(NC),1) = PDF 

THEN BSINC) = BL$ + LEFTS (BS(N 

CIGLOINC) = 1) 

X = CX(NC)H: 

Y = CYINC) 

GOSUB 11000 

PRINT BS (NC): 

RETURN 

REMO A 

REM CTRL, PUNTO 

REM a e 

SUP = 0 

IF CE = 1 0R' 00 = LO(NO) THEN SP 

=l: 

RETURN'+ 

FOR 1 = 1 TO LC(NC) y 
1F— MIDS (BM(NC), 1,1) = PDS 
THEN 1 = LCINC)S 


AA AAA AA 
REM LECTURA DE LOS DATOS 


REA 


READ NY 
FOR] = 1 70 NY + 15: 
READ DAS; 
NEXT I 
LV =0 
IF. LM = 0 THEN READ NUC: 
FOR 1 = 1 TONY — 1: 
READ DA; 
NEXT 1: 
GOTO 7150 
FOR 1 = 1 TO LM: 
READ DA: 
LV = LY + DA + DA £ ND: 
NEXT 1 
READ NUC 
IF NU ="'0 THEN 7190 
IF 1 < NY THEN READ DA: 
V=1 +1 
6070 7120 
IF LY = 0 THEN 7150 
FOR 1 = 1 TO LV: 
READ DAS: 
NEXT 1: 
REN LEE EN VACIO 


7150 


FOR 1 = 1 TO NUC: 
READ D$(1): 
NEXT l: 
REM LEE DESCRIPCIONES 


FOR 1 = 1 TO NUC 
READ TP(1),LCCI) ND(1),DX(1»,C 
XD, OY 41) 
DY(1) = CY(1) 

NEXT 1: 

REM CARGA PARAMETROS 


p:] 
3 
.. 


REMO e 

REMO CALCULO 

REMO ——— 

DN 0PZ GOSUB 9100, 9200, 9300, 9400, 
9500, 9600 

IF LEN (BS(NC)) > LO(NC) THEN BS 
(NC) = ER$ 

IF. LEN (BS(NC)) = LO(NC) THEN X 
= CXINC): 

Y a CY(NO): 

GOSUB 11000: 

PRINT BS (NC): 


REM OPCION 1 
71 = VAL (BS(4)) % VAL (B$(3)) 
22 = VAL (B$(1)) 
213 = VAL (B$(2)) / 100 
FORK: = 1 TO 21 
12= 22 + 224 23 / VAL (B3(3 
1) 


NEXT K 


B$(5) = 'STR$ ( INT (227) 
RETURN : 


REM OPCION 2 
71 = VAL (B$(1)) 
212 = VAL (B$(3)) 4 12 
23 = VAL (B$(2)) / 100 
14=0 
FORK=17T0722  . 

14 71 + 74 + 24 k 23 / 12 
NEXT K 
B$(4) = STR$ ( INT (24)) 
RETURN 5 


REM OPCION 3 

21 = VAL (B$(1)) 

22 = VAL (B$(3)) * VAL (B$(4)) 
23 .« VAL (B$(2)) / 100 / 
VAL (BS (4) 

14 = 711% (23 / ((1 + 23) * 22 
20) 

BS(5) = STRS ( INT (74)) 
RETURN : 

REM OPCION 4 

21. = VAL (B$(1)) 

VAL (B$(2)) / 100 
VAL (B$(3)) 

VAL (B$(4)) 

71: . 

1 
ALTE IS A A EN 
1F 25 < 24 THEN 9445 

716 = 16 + 1: 

GOTO 9430 

B$(3) = STR$ (26) 

RETURN : 


REM OPCION S 

11 = VAL (B$(3)) * VAL (B$(4)) 
12 = VAL (B$5(2)) / 100 / 

VAL (B$(4)) 

13 = VAL (BS(1)) 

TAZA A ZZYOO ZA 

B$(5) = STR$ ( INT (24)) 
RETURN : 


REM OPEION 6 

11 »= VAL (B$(1)) 

12 VAL (B$(2)) 

23 VAL (B$(3)) 

14 VAL (B3(4)) 

15 = 73 t 74 

16.= ((22 / 71) * (1 / 25) 
- 1) 1100 2 24 

76 = [ INT (26 4 10)) / 10 
B3(5) = STRá (26) 

RETURN 


10010 REM DATOS 

10020 REM -—=- 

10030 DATA "CALCULOS ECONOMICOS" 

10040 DATA 6 

10050 DATA "CAPITALIZACIÓN DE UN DEPOSI 
TO", "CAPITALIZACIÓN DE VARIOS DEP 
OSITOS", "INVERSIONES PARA UNA SUM 
A FUTURA" 

10060 DATA "RETIRADAS DE UN CAPITAL", "Y 
ALOR ACTUAL", "INTERES NECESARIO" 

10070 DATA 23, 26,19,1,0,27, 18,13,25,9,4 
,0,0,0,0 

10080 DATA 5,4,5,5,5,5 

10090"DATA "DEPOSITO, "INTERES", "PERIOD 
OS ANUALES", "ANOS", "VALOR FUTURO" 


10100 DATA 1,8,0,8,25,10 

10110 DATA 1,4,1,8,25,12 

10120 DATA 1,2,0,8,25, 14 

10130 DATA 1,2,0,B, pa 

10140 DATA 2,9,0,5,25, 2 

10150 DATA "INVER. les; "INTERES", "N 
UMERO DE ANOS", "VALOR FUTURO" 


10150 DATA 1,8,0,8,25,10 

10170 DATA 1,4,1,8,25,12 

10180: DATA 1,2,0,8,25,14 

10190 DATA 2,9,0,5,25, 20 

10200 DATA "VALOR FUTURO", "INTERES", "NU 
MERO DE ANOS", "INVERS. ANO", "IMPOR 
TE INVERSION" 

10210 DATA 1,9,0,8,25,10 

10220 DATA 1,4,1,8,25,12 

10230 DATA 1,2,0,8,25, 14 

10240 DATA 1,2,0,8,25,16 

10250 DATA 2,9,0,5,25, 20 

10240 DATA "CAPITAL", "INTERES", "RETIR.A 
NO", “IMPORTE RET.", "NUMERO DE RET 

m 


10270 DATA 1,9, 

10280 DATA 1,4, 

10290 DATA 1,2, 

10300 DATA 1,9,0,8, 25, 16 

10310 DATA 2,3,0,5,25,20 

10320 DATA "VALOR FUTURO”, "INTERES"; "NU 
MERO ANOS", "PERIODOS ANUALES", "VA 


-LOR ACTUAL" 


10330 DATA 1,9,0,8,25,10 
10340 DATA 1,4,1,8,25,12 
10350 DATA 1,2,0,8,25,14 
10340 DATA 1,2,0,8,25, 16 


10370 DATA 2,9,0,5,25,20 
10380 DATA "INVERSION", "DEVENGOS", "NUME. 
RO ANOS”, "PERIODOS ANUALES", "INTE 
RES" 
8,25,10 
8, 25, 12 
8,25, 14 
8,25, 16 
5,25,20 
VLOOO REM 
11010 REM POSICIONA CURSOR 
11020 REM ¡AAA A 
11030 HTAB X: 
VTAB Y 
11040 RETURN 
13000 REM Ho 
13010 REM AYUDA 
13020 REM RS 
13030 XX = X: 
YY = Y 
13040 INVERSE 
13050 K = 1 
13060 X = 1: 
Y = 4 
GOSUB 11000 
13070 PRINT HES(K); 
13080 B = PEEK ( - 16384) 
13090 POKE — 16368,0 
13100 1F B< 128 THEN 13080 
13110 IF B< > 160 THEN 13080 
13120 K = K + ld: 
IF K > LH THEN 13140 
13130 GOTO 13060 
13140 X= l: 
Y = 4: 
GOSUBE 11000 
13150 PRINT HES; 
13160 NORMAL 
13170 X = YX: 
Y = YY 
13180 RETURN 


RELACION DE LAS VARIABLES APPLE 


Carácter adquirido por teclado 

Límite inferior códigos ASCII válidos (1) 
cba superior códigos ASCII válidos 
(31 

Símbolo de campo alfanumérico 
Matriz de los buffers (1 por campo) 
Espacio en blanco (blank) 

CHR$(7) (beep) 

Código ASCII de A$ 

Contador caracteres en el campo 
Coordenadas iniciales del campo de 
introducción 

Matriz de las descripciones (máscaras 
vídeo) 

Parte derecha del buffer 
Coordenadas iniciales descripciones 
Variable de error = “E” 

Valores asociados a los comandos 
(1 a 15) 

Contiene las cadenas de la ayuda 
Longitudes de los campos 

Contiene el título del programa 
Longitud del campo 

Número de decimales del campo ac- 
tual 

Número del campo actual 

Número de decimales de los campos 
(numéricos) 


Símbolo de campo numérico 
Número de campos 

Número de voces del menú 

Opción seleccionada 

Punto decimal 

Parte izquierda del buffer 
Espaciado entre las líneas del menú 
Contiene los códigos ASCII de los 
comandos reconocidos 

Tipo de los campos 

Return 

Voces del menú 


Coordenadas 


Valores calculados 
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El Apple Il 


Características técnicas 


m Microprocesador Rockwell 6502 (8 bits) 

m Alta resolución gráfica (280 x 192 pixels) 

m Conexión a monitor o TV (mediante modulador 
de FM exterior) 

mn 6 slots internos para expansiones o interfaces 

m Conexiones para joystick, paddle, grabador 

audio/datos, mesa gráfica 

Interfaz para comunicaciones (modem) 

16 colores 

Generador sonoro 

Trabajo en red (networking) 

Sistema operativo DOS 3.3 

Programación en Assembler Monitor 

Pulsador de RESET 


Periféricos estándar: grabador audio, impresora, 
plotter, unidad de disco. 

Dimensiones: 460 x 390 x 120 mm. Alimenta- 
ción: 220 V c.a. 


Capacidad de memoria. El Apple puede tener 
como dotación estándar de memoria de 4 kbytes 
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a 64 kbytes. 
En ambiente Basic: 


— de 0 a 49151 bytes RAM (programas de siste- 
ma, 2 páginas de texto, 2 páginas gráficas) 

— de 49152 a 53247 bytes memoria 1/O (tarjetas 
de interfaz o de expansión) 

— de 53248 a 65535 bytes ROM (Integer Basic, 
Applesoft, Monitor, etc.). 


Teclado. Qwerty de 52 teclas con puisador RE- 
SET. Opción: minúsculas en tarjeta. 
Cuatro desplazamientos del cursor: 


ESC + A = derecha 
ESC + B = izquierda 
ESC + C = abajo 
ESC + D = arriba 


Booting automático del DOS con las teclas CTRL 
+ P seguidas de RETURN. 


Monitor. El Apple puede conectarse a un monitor 
monocromático o a un televisor. 

En dotación estándar hay disponibles 16 colores 
y una página de texto de 40 x 24. Posibilidad de 
pantalla a 80 columnas con tarjeta enchufable. 


Gráficos. El Apple tiene la posibilidad de presen- 
tar cuatro tipos diferentes de pantalla vídeo: 
página texto 1 = baja resolución (40 x 24), 16 
colores 
página texto 2 = baja resolución (40 x 48), 16 
colores 
página gráfica 1 = alta resolución (280 x 192 
pixels), 8 colores 
página gráfica 2 = alta resolución (280 x 192 
pixels), 8 colores 
No hay la posibilidad de crear sprites, sino sólo 
de definir el movimiento de las figuras (shapes) 
en gráficos de alta resolución mediante desplaza- 
mientos y retrazados. 


Generador de sonidos. En el Basic del Apple es- 
tándar no existen comandos director. No obstan- 
te es posible obtener un sonido breve (beep), 
cuya duración y frecuencia pueden variarse. 


Lenguajes de programación. En tarjeta: Apple- 
soft, Integer Basic, Language system. 

Sistema operativo DOS 3.2.1, DOS 3.3 y PRO 
DOS. 

Diskettes de 5”1/4 de 100 kbytes de capacidad; 
posibilidad de conexión de discos rígidos (hard 
disk) de hasta 10 Mbytes. 

También hay disponibles otros lenguajes, como 
Pascal, Fortran, Cobol, APL, PL/M. PL-1 y Forth. 
Numeración de las líneas: en Applesoft de O a 
63999, en Integer Basic de O a 32767. 


Variables simples 


Tipo Nombre Campo 
Enteros XV % — 32767 a + 32767 
Reales XY - 10% a + 10% 
Cadenas AS de 0 a 255 caracteres 
Variables estructuradas 

Tipo Nombre 

Una dimensión A(5) 

Dos dimensiones A(5,5) 

Tres dimensiones A(5,5,5) 


Operadores algebraicos 


= Igualdad 

A Elevación a exponente 
x Multiplicación 

/ División 

+ Suma 


Resta, negación 


Operadores relacionales 


En ambiente Integer Basic: 
< menor que (no con las cadenas) 
> mayor que (no con las cadenas) 


=  ¡gual a 

* diferente de 

> =mayor o igual que (no con las cadenas) 
< =menor o igual que (no con las cadenas) 


En ambiente Applesoft: 

menor que 

mayor que 

igual a 

diferente de 
mayor o igual que 
menor o igual que 


AVASGUVA 
YA 
MY 


AVA 


(0) 
(0) 
[0] 


Operadores lógicos 


NOT Not lógico 

AND And lógico 

OR Or lógico 

La expresión vale 1 si es verdadera, 0 si es falsa 


Comandos de edición y formateado 

LIST lista todo el programa 

LIST A-B lista de la línea A a la línea B 
REM mensaje de comentario 

TAB (X) posiciona el cursor en la columna X 


HOME lleva el cursor arriba a la izquierda borran- 
do la pantalla 


CLR pone a cero los valores de todas las varia- 
bles en Integer Basic 


CLEAR como CLR pero en Applesoft 
DAL A, B borra las líneas de programa de A a B 


FLASH activa el modo de presentación intermi- 
tente en la pantalla 


HTAB posiciona el cursor en la columna indicada 


INVERSE invierte el campo de los caracteres en 
la pantalla 


NORMAL anula el efecto de los comandos 
FLASH e INVERSE 


TEXT recupera la pantalla de texto después del 
modo gráfico 


VTAB posiciona el cursor en la línea indicada 


ESC-A, ESC-B, ESC-C, ESC-D mueven el cursor 
en las cuatro direcciones 


ESC-E borra todos los caracteres desde la posi- 
ción del cursor al extremo derecho de la línea 


ESC-F borra todos los caracteres desde la posi- 
ción del cursor al final de la pantalla 
Comandos de sistema 


AUTO X, Y genera automáticamente los números 
de las líneas de programa 
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BLOAD carga un fichero en el disco 


BRUN carga un fichero desde el disco y procede 
a ejecutarlo 


BSAVE salva un fichero en el disco 
CALL llama una rutina en lenguaje máquina 


CATALOG presenta la lista de todos los nombres 
de los ficheros que hay en el disco 


DELETE borra un fichero del disco 
FP reclama el intérprete Applesoft 


HIMEM fija un límite superior a la memoria dispo- 
nible para los programas en Basic 


IN % (o PR 4) selecciona el slot del periférico del 
que se recibirán los siguientes datos de entrada 


INIT inicializa un disco 

INT conmuta a Integer Basic 

LOAD carga un programa de cassette o de disco 
LOCK impide el borrado accidental de un fichero 


LOMEM límite inferior a la memoria para progra- 
mas Basic 


MAN hace terminar la numeración automática 


MON hace presentar los comandos disco y/o los 
datos 


PEEK lee en una posición de memoria 
POKE memoriza en una posición de memoria 
RENAME cambia nombre de un fichero en disco 


Instrucciones gráficas 
COLOR elige un color para la baja resolución 
DRAW traza una figura en alta resolución 


HGR predispone alta resolución con 4 líneas de 
texto 


HGR2 predispone la segunda página de alta re- 
solución 


HLIN traza una línea horizontal en baja resolución 
HPLOT traza una línea o un punto en alta resolu- 
ción 

PLOT como HPLOT pero en baja resolución 


ROT establece la rotación de las formas gráficas 
en alta resolución 


SCALE define la anchura de escala de las formas 
gráficas en alta resolución 


SHLOAD carga una tabla de las formas gráficas 
desde cassette 


VLIN traza una línea vertical en baja resolución 


XDRAW como DRAW (sí se usa una segunda vez 
borra la figura) 
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Matrices y cadenas 

CHR $ (X) da el carácter cuyo código ASCII es X 
DIMAS (A, B, C) define los índices máximos para 
A$: reserva espacio para (A + 1) + (B + 1) (C + 
1) elementos partiendo de A$ (0,0,0) 

LEFT $ (A$,N) da los N caracteres a la izq. de A$ 
LEN (AS) da la longitud de A$ 

MID $ (A$, N, N1) da los N1 caracteres de A$ 
partiendo de N 

RIGHT $ (A$, N) da los N caracteres de A$ más a 
la derecha. 

STR $(A) da el valor A convertido en cadena 
VAL (A$) da el valor numérico de A$ hasta el pri- 
mer carácter no numérico 

Comandos de l/O 

INPUT A$ o A espera que se introduzca una ca- 
dena o un valor 

DATA inicializa una serie de valores a usar en la 
instrucción READ 

READ asigna el siguiente valor DATA a una o más 
variables 

GET A$ espera la inserción de un valor o de un 
carácter 

PRINT A$ presenta la cadena A$ 

RESTORE recupera el cursor al principio de las 
instrucciones DATA 

RESUME reemprende la ejecución de un progra- 
ma después de un error 

TRACE presenta el número de línea de cada ins- 
trucción ejecutada 

Flujo del programa 

GOTO X salta a la línea X 

IFA = 3 THEN 10 1F (si) la sentencia es verdade- 


ra THEN (entonces) ejecuta la línea 10; si es falsa 
ejecuta la primera línea que sigue 


FOR A = 1 TO STEP 2: NEXT ejecuta todas las 
instrucciones entre FOR y el NEXT, con A que va 
de 1 a 10 en incrementos de 2. El incremento es 1 
excepto si se especifica de otro modo 

NEXT A define el fin de la iteración 


GOSUB 2000 salta a la subrutina empezando en 
la línea 2000 


RETURN indica el final de la subrutina. Vuelve a la 
instrucción que sigue al GOSUB más reciente 
ON X GOTO A, B salta al número de línea X- 
ésimo de la lista. Si X = 1 salta a A, etc. 


ON X GOSUB A, B salta a la subrutina a la línea 
N-ésima de la lista 


Los listados / Versión Philips VG 8010 


M : 
20 REM CALCULO ECONOMICO 
25 REM Version MSX 


35 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$(16) ¿KEY 3.CHR$(17) KEY 4, CHR$ (19) : WIDTH 40 
40 DIM TF (20), TP(259),LC(25),ND(25),CX(29),CY(25),DX (25), DY (25) 

50 DIM B$(20),D$(20),VD$(10) 

60 REM CONSTANTES 

70 Alw=1:42=31:BP$="0D4L3ODFB":NS$="=":AS$="-":PD$="."ERS="E":BLg$=" ":MPS="MENU" 
73 F$=CHR$ (1) +CHRS (87) 

77 Q$="": FOR 1=0 TO 39:0$=0%+F$:NEXT 1 

80 SZ=2:MI=1 

90 X0=16:Y0=1:XC=3:Y0=3: XS=1 

100 USS$=CHRS (13) : ZES$=CHR$ (48) : GIUS=CHRS (32) 
110 HES$="CTRL Y AYUDA" 

115 H18=" E.G.S. Ediciones Forum, S.A." 
120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG+$ 

150 READ NV 

160 FOR I=1 TO NV: READ VO$(1):NEXT 

170 MA=NY+1 

180 VOS(MA)="FIN DE TAREA" 

190 FOR I=1 TO 15 

200 READ TF (1) 

210 NEXT 1 

220 REM MAIN 

230 GOSUB 1300: REM MENU 

240 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: COLOR 15,4: END 
250 LM=0P2-1:G0SUB 7000 

260 GOSUB 2000: REM MASCARAS 

270 GOSUB 3000: REM DATA ENTRY 

280 IF FS=6 THEN 260 

290 GOTO 230 

1300 REM: == mmm o 


dd 


1320 REM SR ne 

1322 CLS 

1335 X=1:Y=0:GOSUB 11000: PRINTCHR$(1);CHR$(£H58);:+FOR C=1 TO 6:PRINT CHR$ (1) 3 CHR 
$ (2557): NEXT C:PRINT CHR$ (1) CHR$ (%:H59) 

1340 X=XC47:Y=0:G0SUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUE 11000: FPRINT CHR$ (1) 3 CHRS (2: 
HI6)3" "¿MPE3" "¡CHRS(1)3CHRE(RHS6) : Y=Y+1:X=1:G0SUB 11000: PRINTCHRS (1) 3 CHRS (LH36 
y "3 CHR$ (1); CHRGARHS6) 3: PRINT SPACES (6)3:PRINT PROG$+DES 

1343 X=1:Y=Y+1:GOSUB 11000: PRINT CHR$ (1) CHRS (LASA): FOR C=1 TO 6: PRINT CHRS (133 
CHR$(2H57)32NEXT C:PRINT CHRS(1)30HR$(8H51);: FOR C=1 TO 31:PRINT CHR$ (1) CHR$ (8H 
57); :NEXT C 

1350 FOR I=MI TO MA 

1360 V=14S524+YC:X=XC:GOSUB 11000 

1370 1I=1 

1380 1F ll=(MA) THEN ]I=0 

1390 PRINT 113"-"3V08 (1) 

1400 NEXT 

1410 1=MI 

1420 Y=IxSZ7+YC: X=XS:GOSUB 11000 

1430 SP=YC-1 

1440 PRINT"->"; 

1950 DPZS=INKEYS: 1F OPZ4="" THEN 1450 

1455 OPZ=VAL (074%): 1F OPZ$=US8 THEN 1530 

1460 IF OPZ>NY THEN 1450 

1470 1F OPZ%=ZE$ THEN X=XS:GOSUB 11000:PRINT SPC( SP): I=MA:GOTO 1420 

1480 IF ASC(0PZ%)>48 AND ASC(OPZ$) ¿58 THEN X=XS:GOSUB '11000:PRINT SPO« SP)5:I1=0 
PZ:GOTO 1420 

1490 IF OPZ$<> GIUS$ THEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( se); 

1510 I=I+1:1F 15 (MA) THEN 1410 

1520 GOTO 1420 

1530 X=XC: Y=I*SZ+YC0 

1540 Il=I:IF 1 > NV THEN 11=0 

1560 PRINT 113=":V08 (1) 

1580 0OPZ=I 

1590 RETURN 

BOO REM mm 

2010 REM FRESENTA MASCARAS 

2020 REM ---- = 

2030 COLS 

2130 L=LEN (VOS (0PZ))-3 

2140 FM=(29-1)/2: FME=SPACES (FM) ; 

2190 X=1: Y=0: GOSUB 11000: PRINTCHR$ (1) 3 CHR$ ($458): FOR C=1 TO 6: PRINT CHR$ (1) ¿CHR 
6(57)3 NEXT C:PRINT CHR$ (1): CHR$ (9H59) 1 X=XC+7: G0SUB 11000: PRINT H14%; 
2195 Y=Y+1:X=1:GOSUB 11000: PRINT"VOZ"30PZ3:X=8:GOSUB 11000: PRINT"Y" 

2200 Y=Y+ 1:GOSUB 11000; PRINTCHRE (1); CHR$ (£HSA) ¿2 FOR Cs1 TO S:PRINT CHR$(1);0 
HRS (£H57) 3: NEXT C:PRINT CHR$ (1); CHR$ ($H51);: FOR C=1 TO 16: PRINT CHR$ (1) 3 CHAS (HS 
ZIFENEXTIC 

2215 Y=Y-1:;Xx=1: GOSUB 11000: PRINTCHR$ (1) ¿CHR$ (8 HI6) y" "G3PRINT CHR$(1);CHRS (2: 
HS6):PRINT FM$; :PRINT VO$(0PZ);:PRINT EM 

2218 Y=21:X”0:GOSUB 11000:PRINT Qs 

2219 Y=22:X=25:G0SUB 11000 

2220 PRINT HES 

2240 FOR J=1 TO NUC 

2245 Ag="" 

2270 X=DX(J3):Y=DY (3): GOSUB 11000:FPRINT D$(J) 

2290 Ni=LC(J):N2=ND(J):+ 1F TP(J)=1 OR TP(J)=2 THEN Cé=NS$:GOTO 2310 

2300 C$=AS$ 
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2310 A$=STRINGS$ (Ni-N2-1,C$) 

2320 IF N2=0 THEN A$=A$+C$:G0TO 2350 
2330 A$=A8+FDS 

2340 FOR I=i TO N2:A$=A$+C$: NEXT 1 
2350 X=CX (3): Y=CY (3): GOSUE 11000 
2360 PRINT AS 

2380 B$(J) =SPACES (N1-N2-1) 

2410 B$(JI)=B$(J)+RIGHT$(A$,N2+1) 


SOLO ME amero dactis, 

3030 J=1 

3040 NC=J: X=CX (NC) : Y=CY (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 1F FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 

3100 J=J+1 ¿IF J>NUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 1F J>1 THEN J=J-1:GOTO 3040 

3140 PLAY BP$:F3=0:2 J=NUC:GOTO 3040 

3150 IF J<NUC THEN J=3J+1:GOTO 3040 

3160 PLAY BP$:F5=0:GOTO 3030 

3170 1F CC<LC(J) THEN S=1:CC0=C0+1: X=X+1:G0SUB 11000:G0T0 3060 
3180 PLAY BP$:FS=0:GOTO 3100 

3190 1F CC>1 THEN S=-1:CC=CC-15X=X-1:GOSUB 11000:G0T0 3060 


3200 PLAY EP$:F5=0:GO0TO 3040 
3210 1F FS>8 THEN FS=0:GOTO 3060 
3220 1F FS=8 THEN FS=0:GOTO 3100 
3230 RETURN 


3260 REM === 

3270 FS=0 

3280 IF TP(NC)=4 THEN RETURN 

3290 1F TP(NC)=2 THEN GOSUB 9000: RETURN 
3300 1F MID$(B$(NC)>,CC,1)=FDS THEN X=X+S:CC=CC+S 
3310 GOSUB 11000 

3320 A$=INKEVS: IF A$="" THEN PRINT"pp";:GOSUB 11000: PRINT MIDS(B$(NC),CC, 1)5:G0SU 
B_11000:GOTO 3320 

3330 CA=ASC(AS):1F CA>A2 THEN 3380 

3340 FOR l=1 TO 15 

3350 1F TF(1)=CA THEN FS=I:GOSUB 3630: RETURN 
3360 NEXT I 

3370 GOTO 3320 

3380 IF TP(NC)<>1 THEN 3440 

3390 IF CA=45 OR CA=46 OR(CA>=48 AND CA<=57) THEN 3410 
3400 PLAY BP$:GOTO 3320 

3410 IF CA <>46 THEN 3440 

3420 GOSUB 4270 

3430 IF SWP=1 THEN 3400 

3440 S=1:GOSUB 3520 

3450 IF CC=LC(NC) THEN RETURN 

3460 CC=CC+1:X=X+*1:GOTO 3300 

SSZO RENO rem nn e a mm ii 

3530 REM TRANSFERENCIA AL BUFFER 

3340 REM ooo o 

3550 IF CC=1 THEN SN$="":GOTO 3570 

3560 SN$=LEFTS (BS (NC),CC-1) 

3570 IF CC=LC(NC) THEN DS%="":GOTO 3590 
3580 N=LC(NC)-CC:DS$=RIGHT$ (BS (NC) ,N) 
3590 BS (NC) =SN$+AS+DSS 

3620 PRINT Ab: RETURN 

3630 REM ======= 

3640 REM COMANDOS 

3650 REM ======-- 

3660 IF FS>5 THEN 3690 

3680 RETURN 

3690 IF FS=9 THEN GOSUB 13000: RETURN 
3700 1F FS=8 THEN GOSUB 4080: RETURN 
3710 IF FS<B THEN RETURN 

3720 0N' FS=9 GOSUB 3740, 3910 

3730 RETURN 

3740 REM ======- 

3750 REM INSERTAR 

3760 REM nessa 

3770 1F CC=LC(NC) THEN FLAY BP$: RETURN 
3780 IF CC=1 THEN SN$="":GOTO 3800 

3790 SN$=LEFTS (E$(NC),CC=1) 

3800 N=LC(NC)=CC+1:DS$=RIGHTS (BF (NC), N) 
3810 IF TP(NC)=1 OR TP(NC)=2 THEN Có=BLS$:GOTO 3830 
3820 C$=BLS 

3830 A$=SN$+C$+DS$ 

3840 BS (NC)=LEFTS (A$,LC(NC)) 

3850 XX=X1: YY=Y 

3860 X=CX (NC): Y=CY (NC) :GOSUB 11000 

38970 X=XX:1 Y=YY 

3880 PRINT BS (NC):5=-1 

3890 1F RIGHTS(BS(NC),1)=PD$ THEN 3780 
3900 RETURN 

3910 REM ======-- 

3920 REM BORRAR 

3930 REM -=—-==-=- 

3940 1F TP(NC)<>1 THEN 3960 
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1F MIDS$(B$(NC)>,2,1)=FD$ AND CC=1 THEN RETURN 


IF CC<1 THEN PRINT BP$: RETURN 


1F COSLC(NC) THEN DS$="":GOTO 4000 
N=LC (NC) -CC: DS$=RIGHTS (B$ (NC), N) 


IF CO=1 THEN SN$="":GOTO 4010 
SN$=LEFTS (B$ (NC), CC-1) 


IF TP(NC) = 1 OR TP(NC)=2 THEN C$=NS$:6010 4030 
Cé=A54 

B+(NC)= SN$ +DS$ +0S$ 

XX=X:VY=Y 

X=CX (NC): Y=CY (NC): GOSUB 11000 

X=XX:Y=YY 

PRINT ES(NC)3:S=1: RETURN 


REM == 


REM ==. 
1F LC(NC) =1 THEN RETURN 
Ni=LC(NC) -CC+1 


IF CC=1 THEN EB(NC) = "": GOTO 4150 


BH (NC)=" LEFTS (B$(NC),CC-1) 


1F TPONC) =1 OR TP(NC)=2 THEN 4200 


FOR I=1 TO Ni 

B$ (NC)=B+$ (NC) +BLH$ 
NEXT 1 

GOTO 4240 

FORI=1 TO Ni 

B$ (NC)=BLH +BS$ (NC) 
NEXT 1 


IF RIGHT (B$(NC),1) =PDS THEN BS(NC)= BL$ +LEFTS (BS (NC), LC (NC)-1) 


X=CX (NC) 2 Y=C Y (NC) 
GOSUB 11000 

PRINT Bb (NC) ¿RETURN 
REM rn 


REM 
SWP-= 0 


IF CC=1 OR COSLC(NC) THEN SWP =1:RETURN 


FOR 1=1 TO LC(NC) 


1F MID$(BS$(NC),1,1)= PDS THEN I = LC(NC): 


NEXT 1: RETURN 
REM ooo” 
REM LECTURA DE LOS DATOS 
REM 
RESTORE 10080 

READ NY. 

FOR 1 = 1 TO NV: READ NUCCI) 
NEXT 1 


ON OPZ GOSUB 7200,7210,7220,7230,7240,7250 


NUC=NUC (OP Z) 

FOR 1=1 TO NUC 
READ D$ (CI) 

NEXT 1 

FOR 1 = 1 TO NUC 


READ TPC(1),LO(T) NDCT),DX(1),C0X(1),CV (1) 
DY (1) =2Y (1) 

NEXT 1 

RETURN 


RESTORE 10100: RETURN 
RESTORE 10160: RETURN 
RESTORE 10210: RETURN 
RESTORE 10270: RETURN 
RESTORE 10330: RETURN 
RESTORE 10390: RETURN 


REM CALCULO 
REM mmm 


SWP=1: RETURN 


ON OPZ GOSUB 9100,9200,9300, 7400, 9500, 7600 


IF LEN(B$(NC)) > LC(NC) THEN PLAY EP+: 


B+$ (NC) =ERS 


IF LEN(B$(NC)) += LO(NC) THEN GOSUE 4240: RETURN 


CC= LEN (E (NC))+1 

GOSUB 4080 

RETURN 

REM 

REM OPCION 1 

Z1=VAL (B6(4))* VAL (B$(3)) 
72 = VAL (B$(1)) 

73 = VAL (B$(2))/100 

Om ERROR GOTO 15000 

FOR K=1 TO Z1 

72 = 722 + Z2%Z3/VAL (B4(3)) 
NEXT 

ES(S) = STR$ ( INT (22))> 
RETURN 

REM 

REM OPCION 2 

Z1 = VAL (B$(1)) 

z2 VAL (BH(3))X 12 

23 VAL(B$(2))/100 

z4 o 

FOR K=1 TO Z2 

74 = 21 + 714 + 24kxZ73/12 
NEXT K 

ON ERROR GOTO 15000 

B$(4) = STR$ ( INT (24)) 
RETURN 

REM 

REM OPCION 3 

Z1 = VAL (B$(1)) 

22 = VAL (BS(3))AVAL (B$(4)) 
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9312 ON ERROR GOTO 15000 
9315 Z3 = VAL (B$(2))/100/VAL (B$(4)) 
9320. 24 =.Z1 *X (23/(( 1423)*Z2-1)) 
9325 Bé(5) = STR$ ( INT (Z4)) 
2330 RETURN 

REM 


9402 REM OPCION 4 
VAL (B$(1)) 
VAL. (B$(2))/100 
VAL (B$(3)) 
VAL. (B$(4)) 
71:26 =1 
9427 ON ERROR GOTO 15000 
9429 IF 24<=71x22/23 THEN PLAY BP$:B$(5)="E": RETURN 
9430. Z5 =.25. + 25kX22/Z3-24 
9435 IF 725 < Z4 THEN 9445 
9440 Z6 = 26 + 1: GOTO 9430 
9445 BS(S) = STR$ (26) 
9450 RETURN 
9500 REM 
9502 REM OPCION S 
95304 ON ERROR GOTO 15000 
2305.21 = VAL (BS(3))IVAL (B$(4)) 
9310 72. = VAL (B%(2))/100/VAL (ES (4)) 
9515.23" VAL (B$(1)) 
9320 74 = 23 / (1+22)"Z1 
95235 BR(S) = STRE ( INT (Z4)) 
9330 RETURN 
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29600 REM 

9602 REM OPCION 6 
29605 Z1 = VAL (B$(1)) 
9610 722 = VAL (B$(2)) 
9615.23 = VAL. (B$(3)) 
7620 74 = VAL (B4(4)) 
9625 23 = 1324 


9627 ON ERROR GOTO 15000 

9630 26 = (22/21) % (1/25) -1)*100XZ4 
9635 26 = ( INT, 126 x 10))/10 

2540 B+$ (5) = STR$ (Z6) 

9641 B3(5)= RIGHTS(1BRF(5),4) 

29643 RETURN 


10010 REM DATOS 

10020 REM ----- 

10030 DATA "CALCOLOS ECONOMICOS" 

10040 DATA 6 

10050 DATA "Valor futuro de un deposito”, "Valor futuro de varios depositos", "Inv 
ersiones para una suma futura" 

10060 DATA "Retiradas de un capital", "Valor actual", "Interes necesario" 
10070 DATA 30,31,28,29,0,16,15,13,25,19,17,0,0,0,0 

10080 DATA 6 

10090 DATA 5,4,5,5,5,5 

10100 DATA "DEPOSITO", "INTERES", "PERIODOS ANUALES", "ANOS", "VALOR FUTURO" 
10110 DATA 1,8,0,7,259,9 


10120 DATA 141,725, 11 

10130 DATA 1,2,0,7,25,13 

10140 DATA 1,2,0,7,25,15 

10150 DATA 2,9,0,7,25,19 

10150 DATA "INVERS. MENSUAL", "INTERES", "NÚMERO DE ANOS", "VALOR FUTURO" 

10170 DATA 1,8,0,7,25,9 

10180 DATA 1,4,1,7,25, 11 

10190 DATA 1,2,0,7,25,13 

10200 DATA 2,9,0,7,25, 19 

10210 DATA "VALOR FUTURO", "INTERES", "NUMERO DE ANOS", "INVERS. ANO", "IMPORTE INVE 
RS." - 

10220 DATA 1,9,0,7,25,9 

10230 DATA 1,4,1,7,25, 11 

10240 DATA 1,2,0,7,25,13 

10250. DATA 1,2,0,7,25,15 

10260 DATA 2,9,0,7,25,19 

10270 DATA "CAPITAL", "INTERES", "RETIR. ANO", "IMPORTE RETIR:", "NUMERO DE RETIR. " 
10280 DATA 1,9,0,7,25,9 

10290 DATA 1,4,1,7,25, 11 

10300 DATA 1,2,0,7,25,13 

10310 DATA 1,9,0,7,25, 15 

10320 DATA 2,3,0,7,25,19 

10330 DATA "VALOR FUTURO", "INTERES", "NUMERO ANOS", "PERIODOS ANUALES”, "VALOR ACTU 
AL" 

10340 DATA 1,9,0,7,25,9 

10350 DATA 1,4,1,7,25,11 

10360 DATA 1,2,0,7,25,13 

10370 DATA 1,2,0,7,25,15 

10380 DATA 2,9,0,7,25,119 

10390 DATA "INVERSION", "DEVENGOS”, "NUMERO ANOS", "PERIODOS AMUALES", "INTERES" 
10400 DATA 1,9,0,7,25,9 

10410 DATA 1,9,0,7,25,11 

10420. DATA" 1,2,0,7,25, 13 

10430 DATA 1,2,0,7,25,15 

10440" DATA 2,4,1,7,25,19 

11000 REM === 

11010 REM POSICIONA: CURSOR 

11020 REM 


11030 LOCATE X,Y 

11040 RETURN 

13000 REM" ua z 
13010 REM AYUDA 

13020 REM" -—--=-= 

13050 LOCATE 0,22 

13055 PRINT "AYUDA (barra espaciadora para continuar)"; 
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13060 GOSUB 13500 y = E - 6 _ 
13110 PRINT "FLECHAS: mueven e i cione »s 
pS URN: alinea convalida la introduc.*”; > 


50 PRINT "Fi 
SOSUB: 


RELACION DE LAS VARIABLES PHILIPS VG 8010 


Variables dimensionadas GIU$ = desplaza el indicador por el menú 
principal (barra espaciadora) 
TF (1) = matriz de las teclas de comando NV = número de voces del menú 
TP (+) = matriz del tipo del campo principal 
de introducción PROG$= nombre del programa 
LC (+) = longitud del campo de OPZ$ = opción elegida: 
introducción en número 1<VAL (OPZ5) <NV + 1 
de caracteres NUC = número de campos y de las 
ND (+) = número de decimales del campo descripciones en una 
de introducción máscara vídeo 
CX (+) = coordenada horizontal longitud del campo (a N1 
del campo se transfiere LC(«) 
CY (+) = coordenada vertical del campo considerado) 
del campo número de decimales del campo 
DX (+) = coordenada horizontal (a N2 se transfiere ND(+) 
de la descripción del campo considerado) 
DY (+) = coordenada vertical cadena usada en la subrutina 
de la descripción 2000 (presentación máscara) 
BS (+) = matriz del buffer (1 por cada para presentar 
campo de introducción) el campo de introducción 
DS (+) = contiene las descripciones contador del campo de 
de la máscara vídeo introducción considerado por la 
VOS (+) = contiene las voces data entry (subrutina 3000) 
del menú principal contador del carácter 
y considerado del campo NC 
Constantes flag de la tecla comando 
carácter esperado de teclado 
A1, A2 = límites de aceptación código : en la lectura de un campo 
ASCII del carácter introducido (subrutina 3240) 
BP5 = cadena sonora para señalar código ASCII del carácter 
un error introducido por teclado 
NS$ = símbolo para evidenciar campos parte izquierda del buffer 
numéricos o de cálculo en las subrutinas 3520 
AS$ = símbolo para evidenciar (transferencia), 3740 
campos alfanuméricos (inserción) y 3910 
PD$ = punto decimal (borrado) 
BLS = espacio en blanco DS$ = como arriba, parte derecha 
ER$ = cadena para la presentación OPZ = valor de OPZ$ (elección del 
de un error menú principal): 1 <PZ<NV 
SZ = espaciado entre dos voces Z1, Z2, Z3, 
del menú principal Z4,Z5,Z6= variables usadas en las rutinas de 
XO, YO, XC, cálculo (líneas 9000 a 9645) 
YC = coordenadas: iniciales para Xx Y = coordenadas del cursor 
cabecera y menú principal HES$ = cadena que contiene los 
US$ = introduce opción del menú mensajes de ayuda 
principal elegida (RETURN) 
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El Philips VG 8010 


Características técnicas 


" Microprocesador Zilog Z80A (8 bits) a 3,5 MHZ 

"E Procesador vídeo Texas Instruments TMS 9929 

" Generador sonoro programable G.l. AY-8910 
estándar MSX 

" Sprites gráficos 

" 32 kbytes de ROM que contienen el Microsoft 
MSX-Basic y BIOS 

m 48 kbytes de RAM usuario 

"n Posibilidad de expansión hasta 1 Megabyte 

"m Alta resolución gráfica (256 x 192 pixels) 

m 16 colores 

mn Interfaz paralelo para impresora (8 bits) 

m Compatibilidad con todos los sistemas MSX 
existentes en el mercado 

m Conexión a monitor o a TV 

" Modulador VHF interno 

" Opción para salidas RF, vídeo compuesto o 
RGB 

"= Dos slots para expansiones o interfaces 

" Cartuchos ROM adicionales con programas 

de aplicación 

2 puertas para joystick, paddle, pluma óptica 

Trabajo en red (networking) 

Interfaces para cualquier periférico estándar 

MSX como grabador no dedicado, unidad de 

disco, impresora 

" Pulsador de RESET 


Dimensiones: 362 x 240 x 48 mm. Alimentación: 
220Vc.a. 


Capacidad de memoria. El Philips VG 8010 tiene 
un total de 80 kbytes de memoria distribuidos así: 
Memoria de sistema: 32 kbytes ROM + 3 kbytes 
RAM. Memoria usuario: 29 kbytes RAM + 16 kby- : 
tes RAM para la gestión del vídeo gráfico. 

La capacidad de memoria RAM puede expandir- 
se hasta 1 Megabyte (1000 kbytes). 


Memorias de masa. La capacidad de un diskette 
de 3,5" en ambiente MSX-Basic es de 500 kbytes 
(360 kb formateados). 

En el MSX estándar también se contempla el uso 
de discos magnéticos de 5 y de 3 pulgadas. 


Teclado. Qwenty estándar de 67 teclas + 10 te- 
clas de funciones programables. 

Es posible utilizar 6 juegos de caracteres (texto y 
gráficos) y la opción de caracteres japoneses. 


Monitor. Conectable al monitor o al TV. Los colo- 

res de la pantalla pueden elegirse como sigue: 

pantalla O color único + color texto 

pantalla 1 color borde + color interno + color 
texto 

pantalla 2 color único + 16 colores gráficos 

pantalla 3 color único + 16 colores gráficos. 


Gráficos. Procesador vídeo Texas Instruments 
TMS 9929. 

2 pantallas texto: pantalla O = 40 x 24 caracte- 
res; pantalla 1 = 32 x 24 caracteres. 

2 pantallas gráficas: pantalla 2 = 256 x 192 pi- 
xels; pantalla 3 = 256 x 192 pixels direccionados 
en grupos de 4 x 4, 


Para la gestión de los sprites, las pantallas gráfi- 
cas pueden dividirse así: 
pantalla gráfica O: sprites de formato 8 x 8 
pantalla gráfica 1: sprites de formato 8 x 8 alar- 
gados a 16 x 16 
pantalla gráfica 2: sprites de formato 16 x 16 
pantalla gráfica 3: sprites de formato 16 x 16 
alargados a 32 Xx 32. 
Pueden definirse hasta 256 sprites de formato 8 
x 8 y hasta 64 de formato 16 x 16; su gestión 
(número de prioridad, posición en la pantalla, nú- 
mero progresivo, colisión) se realiza directamente 
con instrucciones Basic sin ningún direccionado 
en memoria por parte del usuario. Para la alta re- 
solución también exixten instrucciones en Basic. 


Sonido. Generador sonoro programable G.l. AY- 
8910 estándar MSX. 

Tiene 16 registros direccionales con instruccio- 
nes Basic (sin direccionados a la memoria). 

Los registros controlan tres tonos (A, B, €) con 
regulaciones de frecuencia y de volumen separa- 
das, más un tono de ruido. 

Es posible elegir la forma de onda del sonido. 


Lenguaje. El Philips VG 8010 está provisto del 
lenguaje MSX-Basic residente elaborado por Mi- 
crosoft, estándar para todos los ordenadores que 
adoptan el sistema MSX. Además, como dotación 
estándar hay disponible el Disk-Basic, una ver- 
sión avanzada del MSX-Basic para el trabajo con 
unidad de diskettes. También existe el MSX-DOS, 
sistema operativo derivado del MS-DOS utilizado 
en el PC-IBM, con el que pueden usarse progra- 
mas escritos bajo CP/M 2.2, 

Compatibilidad con programas y compiladores 
Microsoft. 


Variables 


Las variables reconocidas del intérprete MSX- 
Basic tienen las siguientes características: 


Tipo Nombre Campo 

Real XY + 1E +62 =1E-64 
Entero XV % — 32768<XY% + 32767 
Cadena  XY$ de O a 255 caracteres 


En simple precisión, los reales tienen hasta 6 ci- 
fras significativas; en doble precisión, hasta 14 ci- 
fras significativas. Los nombres de variable pue- 
den tener más de dos caracteres, pero sólo se 
reconocen los dos primeros. 


Variables matriz 
Tipo Nombre 


Dimensión ple XY(5) 
Dos dimensiones XY(5,5) 
Tres dimensiones XY(5,5,5) 


N.B. Con la instrucción DIM, el espacio para las 
variables se reserva realmente en la memoria. 


Operadores algebraicos 
Asignación 

Suma 

Resta, negación 
Multiplicación 
División 

Elevado a exponente 


>2* 1 + 


Operadores lógicos y relacionales 


Menor que 

Mayor que 

Igual 
> Diferente de 
> Igual o mayor que 
< Igual o menor que 
AND And lógico 
OR Or lógico 
XOR Or exclusivo 
EQV Reconoce dos condiciones lógicas iguales 
NOT Not lógico 


LIASLVA 


Comandos de sistema 


AUTO X, Y Genera números de línea 


BASE ((X)) Contiene la Ple dirección de la ta- 
bla del procesador vídeo (VDP) 


BLOAD *CAS: Carga un programa en lenguaje 
máquina del grabador 


BLOAD "A:(o B): Carga un programa en lenguaje 
máquina de la unidad de disco 


BSAVE "CAS: Graba un POr en lenguaje 
máquina en el grabador 


BSAVE "A:(o B): Graba un programa en lenguaje 
máquina en la unidad de disco 


CLOAD Carga un programa Basic al grabador 
COPY Copia un fichero en el diskette 
CSAVE Graba un programa Basic en el grabador 


DEFUSER Especifica la dirección de inicio de una 
subrutina en lenguaje máquina 


EOF Controla si se ha llegado al final de un fiche- 
ro secuencial 


FIELD Divide el buffer por ficheros random 
FILES Proporciona el índice de un diskette 
KILL Borra uno o más ficheros del diskette 


LOAD "CAS: Carga un programa Basic del gra- 
bador 


LOAD ”A:(o B): Carga un programa Basic de la 
unidad de disco 


LOF Da la longitud de un fichero en bytes 


MERGE Añade líneas de un programa en la cas- 
sette a uno en la memoria 


NAME Cambia el nombre de un fichero 


1777 


A LM Mis 


AA] 


(sal (08-81 C8 a BA 


MN 99 05) ES) PACA a e 


MM Pu) ES) PE) FE] 58) Pa) 20) (58) (+8) (58) (59) (A 


pes 
| (8 (PA (£8) 8 5) E) > E 
> 


ME (20) 100) (58) [VE (500 (50) (M8) (58) (-8 ES 


E MM 


] 


PEEK (xxx) Da el contenido de una posición de 
memoria 


POKE (xxx) Llena un byte de memoria 

PUT Escribe un registro del buffer a un fichero 
RENUM Renumera las líneas de un programa 
RUN Ejecuta un programa 


RUN xxxx Ejecuta un programa empezando por 
la línea xxxx 


SAVE "CAS: Salva un programa Basic en cinta 
SAVE "A (0 B): Salva un programa Basic en disco 
STOP Interrumpe la ejecución 

TRON Activa la función de análisis del programa 
TROFF Termina función de análisis del programa 
USR Reclama una subrutina en lenguaje máquina 


WAIT X, Y, Z El programa espera hasta que el 
contenido de la posición X es diferente 


END Termina la ejecución 


CONT Reemprende la ejecución del programa 
desde la línea en que se ha interrumpido 


Comandos e instrucciones para gráficos 
CIRCLE Dibuja un círculo o una elipse 

COLOR Define el color de pantalla, borde y texto 
DRAW Dibuja figuras en los modos gráficos 1 y 2 
LINE Dibuja una línea 


ON SPRITE GOSUB Indica la subrutina a activar 
cuando se produce una colisión de sprites 


PAINT Colorea una figura gráfica 
POINT Da el color de un punto de la pantalla 
PRESET (PSET) Da color a un punto de imagen 
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PUT SPRITE Inserta un sprite en la pantalla 
SCREEN Selecciona una de las pantallas 


SPRITE ON/OFF/STOP Controles de colisiones 
entre sprites 


SPRITE $ Contiene la definición de los sprites 
WIDTH Indica el número de columnas en las pan- 
tallas de texto 1 y 2 

Comandos de edición y de formateado 


DELETE Elimina una línea o un grupo de líneas 
del programa 


KEY Atribuye funciones a las teclas de función 
programables 


LLIST Impresión de un programa 
LOCATE X, Y Posiciona el cursor 

LIST Lista todo el programa 

LIST A-B Lista de la línea A a la línea B 


LIST. Lista la línea de programa en la que se ha 
identificado un error 


REM Mensaje de comentario 

TAB (X) Desplaza el cursor X posiciones 

SPC (X) Imprime X espacios vacíos en la línea 
POS (0) Da la coordenada X (columna) del cursor 
PRINT USING Determina el formato de impresión 
CLR/HOME Desplaza el cursor al ángulo superior 
izquierdo de la pantalla 

SHIFT + CLR/HOME Borra la pantalla y posiciona 
el cursor en HOME 

CLS Como SHIFT + CLR/HOME 


BACKSPACE Borra el carácter en la posición ac- 
tual del cursor 


DEL Como BAKSPACE pero sin mover el cursor 


INS Permite la inserción de uno o más caracteres 
en una línea 


CTRL Proporciona, si se pulsa Jero con otras te- 
clas, ulteriores valores en ASCÍI 


TAB Tecla de tabulación automática 

ESC SELECT Teclas reprogramables 

STOP Realiza la misma función que el comando 
«STOP» 


4 teclas de comando del cursor. Cada tecla des- 
plaza el cursor en la dirección de la flecha. 


Comandos de Input/Output 
DSKF Da el espacio libre en un diskette 


ERL Da el número de la línea de un programa en 
la que se ha producido un error 


ERR Da el código del error descubierto 


INP Da un byte leído de un conector de entrada 
de la máquina 


RESTORE nnmn Direcciona la lectura de datos 
STICK Reconoce la posición del joystick 


DATA A, "B” Inicializa una serie de valores que 
puede utilizar la instrucción READ 


FEAR A$ 0 A Asigna el siguiente valor DATA o A$ 
oa 


GET Lee en el buffer un registro de un fichero ran- 
dom en el diskette 


INKEYS Espera que se pulse un carácter del te- 
clado 


INPUT Espera la introducción de una cadena o 
de un carácter por teclado o de un fichero 


QUT X, Y Transmite el valor Y al conector de sali- 
da X 


PAD Da el estado de un touch pad 

PDL Da el estado de la paleta 

PLAY (X) Da el estado de la actividad musical 
PRINT AS, A Imprime la cadena A$ o el valor A 


Matrices y cadenas 


DIM AS (X, Y, Z) Define los índices máximos para 
A$, reserva espacio para (X + 1): (Y + 1): (Z + 
1) elementos partiendo de A$ (0,0,0) 


LEN (AS) Da el número de caracteres de A$ 


STRS(A) Da el valor numérico de A$ hasta el pri- 
mer carácter no numérico 


VAL (AS) Da el valor numérico de A$ hasta el 1.” 
carácter no numérico 


CHRS (A) Da el carácter ASCII cuyo código es A 
ASC (A$) Da código ASCII del 1.* carácter de A$ 
LEFTS (AS, N) Da los N caracteres a izq. de A$ 


IS (AS, N) Da los valores de N a la derecha 


MIDS (AS, N, N1) Da N1 caracteres partiendo del 
carácter Ñ de AS 


CVI (AS), CVS (AS), CVD (AS) Convierten valores 
alfanuméricos en los números correspondientes 


INTR (A, AS, BS) Da la posición en que está la 


- combinación de caracteres B$ en la variable A$ 


LINE INPUT AS; B$ Añade un valor a una variable 
alfanumérica que se introduce por teclado o que 
se lee de un fichero secuencial 


LSET A$ = B$ Llena, empezando por la izquier- 
so la variable A$ con el contenido de la variable 


MKIS(A), MKSS(A), MKDS(A) Convierten en valo- 
res alfanuméricos valores numéricos 


RSET A$ = BS La misma función que LSET pero 
partiendo de la derecha ; 
SPACE $ (A) Da un valor alfanumérico con un nú- 
mero A de espacios 

STRING $ (A, B$) Da un valor alfanumérico de 
longitud A que contiene el carácter BS 


SWAP AS, B$ Intercambia los contenidos de las 
dos variables (también numéricas) 


Flujo del programa 
GOTO X Salta a la línea X 


IFA = 3 THEN 10 Si la sentencia (IF A = 3) es 
ds entonces (THEN) procede a ejecutar 
a línea 1 


FORA = 1 TO 10 STEP 2: NEXT Ejecuta todas las 
instrucciones entre FOR y el NEX 


GOSUB 2000 Salta a subrutina empezando por la 
línea 2000 


RETURN Indica el fin de la subrutina 

ON X GOTO A, B, C Salta al número de línea X- 
ésima según el valor de X 

ON X GOSUB A, B, € Como la anterior pero utili- 
zando subrutinas 

IFA = 3 THEN 10 ELSE 20 Sí no se cumple la 
condición A = 3, ejecuta la línea 20 


ON ERROR GOTO-RESUME Inicia una subrutina 
de gestión de los errores y vuelve de ésta al pro- 
grama principal 


ON INTERVAL GOSUB Implanta una pausa des- 
pués de la cual debe procederse a ejecutar una 
subrutina 


ON KEY GOSUB Indica la subrutina a ejecutar al 
pulsar una de las teclas de función 


ON SPRITE GOSUB Indica la subrutina a ejecutar 
cuando entran en colisión 2 sprites 


OB STOP GOSUB Indica la subrutina a ejecutar al 
pulsar las teclas CTRL y STOP 
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La cuenta corriente bancaria es un eficaz imstru- 
mento del que cada uno puede disponer para 
gestionar gastos e ingresos. 

En el acto de la apertura de una cuenta se delega 
al banco el desarrollo de todas las operaciones 
necesarias para efectuar cobros y pagos. Esta 
posibilidad desvincula de la necesidad de ma- 
nejar y transportar dinero en efectivo, puesto que 
para cobrar una suma basta con dar al deudor el 
número de nuestra cuenta corriente (en la que 
podrá realizar el ingreso), mientras que para reali- 
zar un pago basta con llenar y hirmar un talón. 
Sin embargo, a estas ventajas hay asociado un 
inconveniente. Los movimientos de las sumas se 
hacen con un cierto retardo con respecto a cuan- 
do se han ordenado. A este relardo se añade el 
que tarda el banco en notificarnos la realización 
de las operaciones solicitadas. La consecuencia 
de estas demoras es que la situación real de 
nuestra cuenta cornente puede convertirse fácil- 
mente en una incógnita. 

El banco puede enviarnos hoy un extracto de 
cuenta en el que nos informa de un pago o de un 
ingreso producido el mes pasado. Pero mientras 
tanto hemos podido realizar otras operaciones, 
en cuyo caso, el extracto no nos informa de la 
situación real de nuestro balance. 


Uso del programa 


La gestión de las cuentas corrientes que presen- 
tamos se articula en seis fases principales: 


Generación del sistema 

Apertura de las cuentas corrientes 
Introducción y registro de los movimientos (in- 
gresos y reliradas) 

Impresión de la lista de bancos y cuentas 
Impresión del extracto de cuenta 

Cierre de cuentas, 


Generación del sistema. Con esta denomina- 
ción se indican todas las operaciones que corres- 
ponden a la apertura e inicialización de los archi- 
vos que se utilizarán en el disco o en la cinta. Esta 
fase sólo requiere la introducción del número má- 
ximo de movimientos que se prevé efectuar en 
cada cuenta durante el año en curso. El progra- 


ma puede aceptar anualmente un máximo de . 


cien movimientos para cada una de las cinco 
cuentas, con un total de unos diez movimientos 
por semana. En la mayor parte de los casos, este 
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S/ se es litular de varias cuentas corrientes, estos 
inconvenientes se multiplican. 

La solución del problema consiste en registrar 
por nuestra cuenta cada movimiento de dinero, 
independientemente del banco. Con ello tencdre- 
mos un cuadro permanentemente actualizado de 
nuestra situación financiera y, en segundo lugar, 
podremos controlar la exactitud de los extractos 
de cuentas que envia el banco. 

Para mantener actualizada una situación banca- 
ría no hay problemas de tipo particular, pero es 
muy fácil incurrir en errores u olvidos. Por este y 
otros motivos, la gestión de la cuenta corriente 
bancaria se ha convertido en un importante cam- 
po de aplicación del ordenador personal. 

El programa que presentamos en estas páginas 
se ocupará de gestionar hasta cinco cuentas co- 
rrientes diferentes, con convenios y tasas de inte- 
res diferentes. Una vez generado el sistema, bas- 
tará introducir la fecha, el motivo y el importe de 
cada operación; estos dalos se registrarán en los 
adecuados ficheros de la cinta o del disco. 

Las funciones tipicas de esta aplicación, como la 
apertura y el cierre de las cuentas, la impresión 
del extracto de cuenta y la impresión de los datos 
correspondientes a los bancos y a las cuentas 
corrientes, quedarán por cuenta del ordenador. 


límite es excesivo, y puede establecerse un nú- 
mero más bajo, obteniendo a cambio una mayor 
velocidad de ejecución. 


Apertura de las cuentas corrientes. Al final de la 
fase de generación deben introducirse los datos 
correspondientes a cada cuenta que se desea 
abrir, como el nombre del banco, el número de 
cuenta, pero no necesariamente a priori. Es posi- 
ble utilizar durante el año una nueva cuenta no 
prevista en la fase de generación del sistema. La 
apertura de una nueva cuenta puede realizarse 
en cualquier momento pidiendo la oportuna voz 
del menú e introduciendo los datos correspon- 
dientes a la nueva cuenta, Con el mismo procedi- 
miento es posible realizar correcciones a los da- 
tos introducidos previamente, tanto para eliminar 
errores de introducción propiamente dichos, co- 
mo para la eventual variación de la tasa de inte- 
rés, Este último dato puede sufrir variaciones du- 
rante el año según las normas del banco o en 
función del saldo de la cuenta (muchos bancos 


conceden un interés que aumenta al incrementar- 
se el importe.de un depósito). 

Sin embargo, es preciso tener en cuenta que el 
cálculo de los intereses no puede realizarse de 
manera retroactiva: si varía la tasa de interés, los. 
movimientos memorizados se han tratado con la 
tasa anterior y no se recalculan. Esta lógica es 
necesaria para realizar exactamente los cálculos 
de los intereses incluso con variaciones de las ta- 
sas, pero no es adecuada para recuperar errores 
de introducción: por tanto, en la fase de genera- 
ción de las cuentas debe prestarse mucha aten- 
ción al introducir la tasa de interés. Sin embargo, 
son posibles eventuales correcciones antes del 
registro del primer movimiento. 


Introducción y registro de los movimientos. 
Una vez creada la lista de las cuentas puede pa- 
sarse a la fase de empleo propiamente dicha, O 
sea a la introducción de los movimientos. 

Al activar esta función (basta con elegir la voz co- 
rrespondiente del menú) se tiene la posibilidad 
de seleccionar la cuenta deseada (una de las cin- 
co abiertas) en la que debe registrarse el movi- 
miento, El programa presentará a continuación la 
petición de introducción de los datos. 

Téngase en cuenta que la selección de la cuenta 
corriente se obtiene introduciendo el número de 
orden con que se ha abierto la cuenta. 

La petición de introducción de los datos corres- 
pondientes al movimiento a registrar se hace a 
través de una adecuada máscara vídeo, que en 
sus dos primeras líneas indica el nombre del ban- 
co y el número de la cuenta. La introducción es 
guiada y utiliza tres campos diferentes: 


Fecha: es la de la realización del movimiento 
(día y mes) 

Importe: con el signo — se trata de una retirada 

Motivo: es la descripción abreviada de la ope- 


ración 

La fecha y el importe definen el movimiento y sir- 
ven para actualizar el saldo (total de entradas y 
total de salidas) y para calcular los intereses de- 
vengados; el campo del motivo sólo sirve de re- 
cordatorio al usuario. 

Durante la introducción es posible que no se re- 
cuerde el número de la cuenta corriente. En este 
caso basta con volver al menú principal y pedir la 
lista de bancos y cuentas. 

Finalizada la fase de introducción, el programa 
procederá automáticamente a la grabación en 
disco o en cassette. 


Impresión de la lista de bancos y cuentas. La 
utilidad de esta función ya se ha ilustrado en par- 
te en el párrafo anterior. 

Al seleccionar esta voz en el menú, el programa 


presentará una máscara vídeo que sirve para se- 
leccionar las cuentas. Con un código de 1 a 5 se 
examinará la cuenta correspondiente; con el có- 
digo Y se presentarán todas las cuentas. 
Realizada la elección, el programa presenta una 
segunda máscara vídeo, mediante la cual se se- 
lecciona el periférico de salida (video o impreso- 
ra) en el que se desea aplicar la presentación de 
la lista; sigue la presentación de los datos. 

El programa no se limita a presentar la lista de la 
cuenta, sino que también proporciona los impor- 
tes totales correspondientes a las entradas y a las 
salidas, al interés devengado y al saldo, Por tanto, 
la utilidad de esta función no está limitada sola- 
mente a la comprobación de la lista, sino también 
al examen de la situación financiera en conjunto. 
Sin embargo, el importe del interés devengado no 
se abona hasta que ha terminado el período de 
capitalización. Normalmente, el abono de los inte- 
reses se hace a fin de año, por lo que el saldb 
temporal no se tiene en cuenta. 


Impresión del extracto de cuenta. Después de 
haber introducido un cierto número de movimien- 
tos puede pedirse la impresión del extracto de 
cuenta. presentando para cada movimiento la fe- 
cha, el importe y el motivo. Existe la posibilidad 
de pedir el extracto de cuenta total o parcial. En el 
primer caso se tendrá la impresión de todos los 
movimientos registrados a partir de la apertura de 
la cuenta, mientras que en el segundo caso sólo 
se imprimirán los movimientos efectuados des- 
pués de la última petición de extracto de cuenta. 


Cierre de las cuentas. Esta función debe activar- 
se al final del año para tener la capitalización de 
los intereses devengados y el cálculo del saldo 
total. Esta última cifra, que representa la disponi- 
bilidad efectiva de dinero en la cuenta, deberá 
introducirse como primer movimiento (depósito) a 
la apertura de las cuentas para el año siguiente. 
En esta fase será necesario disponer de una cas- 
sette o diskette nuevos y empezar de nuevo la 
fase de generación; la cassette o el diskette del 
año pasado pueden borrarse y reutilizarse, 


Advertencia. Los movimientos de dinero de en- 
trada o de salida que intervienen en una cuenta 
corriente los registra el banco utilizando una te- 
cha convencional que, en general, es diferente 
de la efectiva. 

Por ejemplo, un ingreso efectuado en la ventanilla 
del banco el día 2 de enero puede registrarse el 4 
de enero, y sólo a partir de esta fecha, el titular de 
la cuenta corriente podrá disponer de la cifra in- 
gresada. Lo mismo vale también para los intere- 
ses, que en el caso considerado sólo empezarán 
a devengar a partir del día 4 de enero. 
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Activación del programa. 

Después de la carga del programa y la introducción del 
comando RUN, el sistema avisa al usuario que debe 
insertar la cassette o el diskette que contiene los datos 
(o que va a contenerlos) en el grabador o en la unidad 
de disco y ponerlo o ponerla en marcha. Realizada esta 
operación debe pulsarse una tecla cualquiera para 
activar la ejecución. 


Menú principal. 
El programa ha presentado el menú principal a través 
del cual es posible seleccionar las diferentes voces que E. G.S. Ediciones Forum 
componen todo el procedimiento. Introduciendo el 
comando CTRL + Y es posible presentar el cuadro de 
ayuda 
Depositos y retiradas 
Impresion extracto de cuenta 
3- Apertura de las cuentas 
4- Cierre de las cuentas 
5- Lista de bancos y cuentas 
6- Generacion del sistema 
B- Fin de tarea 


A A A __—_SSFD-—Á 


CTRLAY AYUDA] 


Voz 6: Generación del sistema. 
El usuario ha desplazado el indicador (Sprite) a la voz 
«Generación del sistema» y ha pulsado la tecla E.G.S. Ediciones Forum, S.A. 
funcional f1. El ordenador pone en inverso la voz 
seleccionada y espera algunos segundos antes de 
activarla. La voz 6 debe seleccionarse en primer lugar, 
puesto que permite predisponer la cassette o el disco 1- Depositos y retiradas 
para la sucesiva memorización de los datos. 2- Impresion extracto de cuenta 
Apertura de las cuentas 
Cierre de 1as cuentas 
Lista de bancos y cuentas 
A en Beneracion del sistema! 


0- Fin de tarea 


CTECTV AYUDA 


En el monitor ha aparecido la máscara vídeo de la voz 
6. El programa, antes de continuar, pide confirmación, 
puesto que la operación a realizar puede comportar la E.G:S. Ediciones Forum 
pérdida de los datos si la cinta o el disco ya se ha 
predispuesto y utilizado. La fase de predisposición de 
los ficheros también precisa que el usuario especifique 
el número de movimientos que prevé realizar en cada 
cuenta. El usuario está introduciendo el valor 12, que 
será escrito en la cinta o en el disco en un oportuno 
módulo de servicio NRM, que contendrá únicamente 
este registro. 


1782 


Voz 3: Apertura de las cuentas. 

La generación del sistema se ha completado. El 
programa ha predispuesto los ficheros en la cinta o en 
el disco y ha restituido el control de las operaciones al 
usuario, volviendo a presentar el menú principal. La 
segunda operación a realizar es la apertura de las 
cuentas, que consiste en la introducción de los datos 
generales correspondientes a las cuentas corrientes 
que se desea gestionar. El usuario selecciona por tanto 
la voz 3. 


El programa presenta la máscara de introducción de los 
datos de las cinco cuentas corrientes que puede 
gestionar. Los campos de introducción se han 
presentado con trazos (los alfanuméricos) y con 
simbolos X (los numéricos). El cursor parpadeante está 
posicionado al principio del primer campo. 


El usuario introduce los datos correspondientes a tres 
cuentas corrientes. El cursor se desplaza a la derecha 
por el campo a medida que se introducen los 
caracteres. Cuando cada dato está completo, si éste 
llena completamente el campo, el cursor se desplaza 
automáticamente al siguiente; en cambio, si el dato no 
cubre todo el campo, debe pulsarse la tecla RETURN, y 
el programa desplazará el cursor al siguiente campo. 
Completada la máscara de introducción debe activarse 
la transferencia a la cinta pulsando la tecla 18. 

Debe tenerse en cuenta que la introducción de las 
cifras decimales hay que realizarla observando la 
posición del punto decimal predispuesto en la máscara 
(se utiliza la barra espaciadora). 


Voz 5: Impresión de la lista. 

Terminada la apertura de las cuentas se vuelve al menú 
principal pulsando f7. El usuario pide ahora una 
presentación o impresión de comprobación de la lista 
de los bancos y de las cuentas, que al lado del nombre 
del banco y del número de cuenta indicará la tasa de 
interés, el total de movimientos efectuados de entrada y 
de salida y el saldo total. Estas últimas cantidades, de 
momento, serán nulas. 


1- Depositos y retiradas 
2- Impresion extracto de cuenta 
Apertura e las € 
cierre de las cuentas 
de bancos y cuentas 


on del sistema 


0- Fin de 


BTTO AYUDA 


ICIREFY AYUDA) 


Ediciones Forum, S.fA. 


ipertura de las cuentas | || 


bancol 


Depositos y retiradas 
Impresion extracto de cuenta 
fpertura de la cuentas 
- Cierre de las cuentas 
¿Bancos Y ¡en 
eracion del sistema 


0- Fin de tarea 
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El programa pide el código de la cuenta de la que se 
quiere presentar la lista. El código es el número de 
orden con que se ha citado la cuenta en la fase de 
apertura de las cuentas. Introduciendo el valor 9 se 
tendrá en sucesión la lista de todas las cuentas; 
introduciendo O puede volverse al menú principal. En 
este caso, el usuario ha introducido el valor 9. 


INTRODUCIR CODIGO CUENTA 
<9> TODOS 
<0> VUELVE AL MENU 


El programa presenta una segunda elección: la salida 
puede direccionarse al vídeo o a la impresora. En este 
caso se desea presentar la lista en el monitor, por lo que 1 ES 


se introducirá el valor 2, mpresion lista) 
a 


<1> EN IMPRESORA 
<2> EN VIDEO 


CTRL+Y AYUDAR 


Después de una lectura de la cassette o el disco, en el 
vídeo aparece la lista de la primera cuenta corriente. 
Pulsando otra tecla cualquiera aparecerán 
sucesivamente todas las demás. Como aún no se han 
efectuado movimientos, las voces Entradas, Salidas e 
Interés devengado están vacías. Como puede verse, la 
lista puede pedirse también para tener una información 
rápida y abreviada de la liquidez. 


SA INTERES :12.5 Z 
TERES DEVENGADO =HHMAAA 


Voz 1: Depósitos y retiradas. 

Después de la generación del sistema y la apertura de 
las cuentas, y después de haber comprobado la lista, el 
usuario quiere entrar en la voz «Ingresos y retiradas» 
para memorizar los movimientos de dinero. La 
selección se obtiene, como de costumbre, 


posicionando el indicador y pulsando la tecla FU EEES 
funcional f1. = 


. Ediciones Forum, S.A. 


2- Impresion extracto de cuenta 
3- Apertura de las cuentas 

4- Cierre de las cuentas 

5- Lista de bancos y cuentas 

S- Generacion del sistema 

B- Fin de tarea 
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El programa lee en la cinta o en el disco el número de 
movimientos para el que se ha predispuesto e informa 
de ello al usuario. Inmediatamente después pide el 
código de la cuenta en el que se desea efectuar el 
movimiento. Debe recordarse que el código es el 
número de orden con el que se ha abierto cada cuenta; 
siempre que el usuario no lo recuerde puede 
comprobarlo volviendo al menú y pidiendo la lista. 


Se ha seleccionado la cuenta n.* 1. En el vídeo aparece 
la máscara de introducción de los datos 
correspondientes al movimiento, que el usario completa 
con los datos que se ven en la fotografía. Al final de la 
introducción, el cursor se posiciona después de la 
palabra «Provisiones». Pulsando RETURN, el cursor se 
desplazará de nuevo al principio del campo DATA. Para 
memorizar el movimiento en la cinta o en el disco, el 
usuario deberá pulsar f8. 


Después de la fase de memorización, el programa 
presenta todavía la máscara de introducción de 
movimientos. En este ejemplo se desea efectuar una 
corrección: el importe de las provisiones introducido es 
erróneo (100 000 en lugar de 120 000). Para ello basta 
con efectuar en la misma fecha un movimiento de 
retirada ficticio de importe igual a la diferencia 

(-20 000; las retiradas se hacen siempre con el signo 
menos). 


El usuario quiere pedir la impresión del extracto de la 
cuenta en fecha 30/1. Para ello es necesario realizar 
antes un movimiento ficticio de importe nulo con fecha 
30/1, a menos que el último movimiento coincida con la 
fecha indicada. El programa calcula los intereses 
devengados a partir de la fecha del primer ingreso 
hasta la fecha del último movimiento, 


Ediciones Forum 


vepositos MATE TEE? 


ATENCIÓN | 
este fichero esta predispuesto 


para un maximo de 100 movimientos 


¡€_I>--A>M<MM<MMA Ln KÁXZ 


AYUDA 


E.G.S. Ediciones Forum 


bancoi 
ililisa 


Cdd/ mm)! 01/01 
RTE] 1200009 


MOTTOD] 


Ediciones Forum 


bancol 
iliil/a 


: HA CAd/ mm)! 01/01 
IHPORTE! -200009 


¡NO 1100] correccion 


IC1R 


SANTO] bancoi 
CUENTA! lilisa 


FECHA (dd mm)] 30/01 
APORTE 0 
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Voz 2: Impresión del extracto de cuenta. 

Después de haber introducido el movimiento ficticio, 
para tener el extracto de la cuenta debe volverse al 
menú y seleccionarse la voz 2. 


Ediciones Foru 
MT, 


ANA 


- Apertura de las cuentas 
Cierre de las cuentas 
Lista de bancos y cuentas 
Generacion del sistema 

0- Fin de tarea 


CTRESY - AYUDA] 


Activada la voz 2, el sistema pregunta si se desea el 
extracto total o parcial de la cuenta. El extracto total R , 

indicará todos los movimientos realizados desde el s A 
momento de la apertura de la cuenta, y el parcial sólo xtracto de cuenta) 
indicará los movimientos registrados después de la 

última petición de extracto de cuenta. En este caso se 
pide la impresión del extracto total. 


<1> TOTAL 
22) PARCIAL 
<3)> VUELVE AL MEMU 


ECITA? 


CTRL+Y> - AYUDA 


Entonces el programa pide que se especifique qué 
cuenta se desea examinar. Una vez más es necesario 
introducir el número de orden de la cuenta que interesa. 
Introduciendo el código 9 puede tenerse el extracto de 
todas las cuentas corrientes. Después de la 
introducción del código, el programa pedirá si se desea 
tener la salida en el vídeo o en la impresora. 


s Forum, S.f. 


¡cto de cuenta 


INTRODUCIR CODIGO CUENTA PEDIDA 


<3>TODAS <O>VUVELVE AL MEMU 


Se ha seleccionado el vídeo. En el extracto de cuenta 
se han indicado la fecha, el importe y el motivo. El 
interés devengado, calculado y presentado, por ahora 
no se suma al saldo, puesto que su importe no se 
abonará hasta el final del período de capitalización 
(cierre de las cuentas). A 


correccion 
peticion extracto 


ESES DEVENGADOS : 100933 
100993 


para continuar 
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Después de la introducción de 
otros movimientos, en fecha 
31/3 el usuario desea utilizar el 
programa para cerrar las 
cuentas (fin del período de 
capitalización, supuesto 
trimestral). Sin embargo, antes 
de activar el cierre es 
conveniente pedir la 

impresión de un extracto total. 
La salida en la impresora 
puede verse al lado. El 
movimiento ficticio de fecha 
31/3 sirve para el cálculo 
correcto de los intereses al 
cierre de las cuentas. 


Voz 4: Cierre de las cuentas. 


EXTRACTO DE CUENTA banco 1 
A A AAA 


120000 


20000 


Al final de la impresión del extracto total se ha vuelto al 
menú y se ha pedido la activación de la voz 4, 


El sistema pide confirmación de la elección realizada, 
puesto que después del cierre ya no será posible 


efectuar movimientos. 


Una vez dado el consentimiento por el usuario se inicia 
la operación de cierre. El sistema presenta en el vídeo 
la situación económica final de las cuentas corrientes. 
El interés devengado se ha sumado al saldo de los 
movimientos, el cual se convierte así en el saldo final. 


PROVISION 


CORRECCION 


PETICION EXTRACTO 


SUELDO ENERO 


FACTURA MECANICO 


SUELDO FEBRERO 


COMPRA TELEVISOR 


SUELDO MARZO 


CIERRE TRIMESTRE 


Ediciones Forum, 


i- Depositos y retiradas 
2- Impresion extracto de cuenta 
- Apertura de las cuentas 
a Cierre de las cuentas 
Lista de bancos y cuentas 
- Generacion del sistema 


- Fin de tarea 


CTRL AYUDA 


E.G.S, Ediciones Forum, 


Cierre de las cuentas 
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ESA A A 
Listados / Versión Commodore 64 


1 REM RR dodo odio 
3 REM * GESTION CUENTAS CORRIENTES + 
S REM e * 
7 REM Ok VERSION COMMODORE 64 * 
9 REM cio 


10 


POKE 808,225 


UEC2)=""Y PULSAR LAS TECLAS “LAI Y TA 

U$C1)=""Y PULSAR LA TECLA “La 1" 

DIM ARSC100) 

DIM B$(20),TP<20>,LC(2M) ,NIC20),C0X(20),01(20), DX(20),D1(20) 
DIM TFC15%,D$(20),V0$C20) 

EL$=CHR$(32) :ER$="E":PDf=", ":AS$="-":NS$="4": SUS="M":GIUS="M":HOS="2J" 
SL$="/":US$=CHR$(133):NV=7:XC=4:WC0=6:SZ=2:POKE 650, 128 
PRINTHOS :GOSUB1300:PRINTHOS : PRINTCHR$(142>:REM dk MENU dk 
IF _OPZ=7 THEN SS64738 

COSUB20000 

POKE S3281,6 

POKES3280, 14 

FOR I=1 TO 15:READ TFCI>:NEXTI 

REM LECTURA TECLAS FUNCIONALES 


REM 
110 R$="" 
120 li GOSUB 400,8000,800,8700,2500, 12000 


150 GOTO 26 
200 REM RA cd 
400 REM RR MOVIMIENTOS HH Rd 


IF S7<50 THEN 455 


RG=1 


405 GOSUB 6000 

410 1F R$="N" OR R$="/" THEN RETURN 
455 REM LECTURA 

475 CSC15=LEFTS$(BBS, 20) 


C$c27=MIDECBBS, 21,6) 


477 CSC3)=MIDICEBS, 27,4) 


C$(43=MID+$CBB4,31,3) 
CSCS)=MIDICBBS, 34,9) 
CSC6>)=MIDECEBS, 43,9) 
C$(73=MIDSCBBS$, 52,8) 
C$(3)=RIGHTSCBBS, 7) 
ZASYALCC$CIO) 

ZE=WAL CCHS) 
ZU=YALCCFC6)> 
ZI=VAL(C$(7)) 


495 IF ZA=0 THEN Y=15:G0SUB O GOSUB9150:RUN 


REM dk REGISTRO O 44d 


510 MX=VALCARSCO)) 


IF MxC=100 THEN 520 

PRINTHOS:X=2:W=10: GOSUB11M00:PRINT"EL FICHERO DE MOVIMIENTO ESTA AGOTADO" 
X=2:W=21:GOSUB11000:PRINT"RPULSAR UNA TECLA PARA YOLYER AL MENU" 
POKE198,0:MAIT198,1:RETURN 

IF Mx=0 THEN 560 

REM RAR 

DDSSLEFTS$CARF(MA), 2) 

MMÉ=MIDSCARS MAS 3,2) 


560 BS(1>=C3(1):ES(2)=05(2):B4(4)=SL4 

562 GOSUB 7000 

565 GOSUB 2000:REM A MASCARA + 

570 GOSUB 3000:REM + DATA ENTRY + 

572 ZM=VAL(BE(6)) 

575 1F FS=6 OR F3=9 THEN 500 

580 IF FS=? THEN RETURN 

585 IF MX=0 THEN 650 

590 REM 4%k CALCULO DIAS *4% 

392 1F VALCES$(3)9931 OR WALCBSCS))712 THEN Y=12:G0SUB 9150:G0TO 560 
595 DI=VWAL<MM$>4100+YAL<DDS> 

597 D2=VALCBSCSI) 100 VALOBECIA 

609 D3=D2-D1:1F D3<0 THEN Y=12:G0SUB 9150:GOTO 560 
£05 DM$=STR$(DS) :LOSLENCDMS) :DM$=RIGHTS$CDME,L9=15 
606 IFLENCDM+>)=4THENG10 

607 FORJJ=1T04-LENCDOME) :DM$="M'+DM$:NEXTIJ 

610 MM=VALCLEFTSCDMG, 2): 1F MMO12 THEN MM=MM-88 


DD=WAL<RIGHT$C(DME.2))*1F DD>30 THEN DD=DD-70 
DD=DD+MMK30 

REM 44% CALCULO INTERES ad 

REM_ CALCULO SALDO 


635 21=ZE-2U 

637 REM CALCULO INTERES 
638 Z2=(Z14(2A/100)/365)+*DD 
640 ZI=Z1+22:Z1I=INTCZ1> 


650 pm Ak ACTUALIZACION FICHERO BNC Ak 


662 IFZMCOTHENZU=2U-2M 

663 IF 2M>=OTHENZE=2E+2 

664 0=9:2=2U:WB=6 : GOSUB25000 
665 2=ZE :VB=5:GOSUE25000 

666 V0=8:2=21:WE=7: GOSUB25000 
667 BB$="" 


FOR L=1 TO 8:BE4=BES+C$(L):NEXTL 


672 REM PREPARADO PARA ESCRIBIR EN BNC 


RENA ed deddcdc dbodcdd 
REM ACTUALIZA FICHERO MOVIMIENTOS 


FDSSLEFT$(B$(3),1):1F FD$=CHR$(32)THENB$(3)="9"+RIGHT$(B$(3), 15 


EBSCO" 


Ma=11%+1 :ARASCMX)=BEC3)+BG CDI A+BGC6) BG (7) +B$(8) 
IF MX<10 THEN MX$="90"+RIGHT$(STR$(MX), 1):G0TO 688 
IF MX<100 THEN MX$="0"+RIGHTS$(STRECMA), 2) :G0TO 688 


MX$=R IGHTECSTRS CMA?) 3) 
KL=LENCMXS) :KL1=39-KL 

RAS) =MXF 

FOR JJ=1 TO KL1 

ARS CORRE (OD FCHRECO2) : NEXTJIJ 
GOSUB $e0U 

IF SG=1 THEN 785 


RG=2 

GOSUBEDOO 

RETURN 

GO0TOS00 

hn Joa FIN MOVIMIENTOS cacao 


REM dk APERTURA CUENTAS det 
IF S7<50 THEN 807 


do GOSU' 
6 1 


B 6009 

F R$="N" OR R$="/" THEN RETURN 
GOSUB 7000 
C$(1)=LEFTSCBB$, 20) 
C$(27=MIDSCBB4,21,6)> 
C$(3)=MID+CBB4,27,4) 
C$(4)=RIGHTSC(BB$, 36) 
BS4(1>=0$C1) 
B$(2)=C$(2> 
BHD ICICD) 
FI$=C$(4> 
GOSUB 2000:REM Ak MASCARA eek 
GOSUB 3000:REM dk DATA ENTRY xk 
IF FS=6 OR FS=9 THEN GOSUB7009:60T0870 
IF FS=? THEN RETURN 
C$C1)=B$(1> 
C$(2)=B$(2) 
C$(3)=BS (35 
C$(4)=F14 
BRg="" 
FOR L=1 TO 4 
BES$=BES+C$(L) 
NEXT L 
RG=2 
GOSUBSO00O 
REN 


9 RETURN 
1300 REM A SCT 
130 PRINCIPAL 


1 REM Ox MENU 
1302 REM O IRAN ARA 


3 Lv=-1 
1304 POKES3281,6:P0KE53280,6 
1305 U$=" MENU  ":0PZ=0:YO$(0PZ>=" 1 “0l3T7/ 


1307 GOSUE7000 
1309 NPZ=1 
1315 95=53248*POKESS+21,1:POKE2040, 13 
1316 RESTORE 
1318 FOR 1=6 TO 62 
1319 READH:POKES32+1,W 
NEXTI 


POKESS+39, 1 


1322 C1=30:02=111 

1323 GOSUB 1363 

1324 GOSUB 13296 

1327 GET 0PZ$ 

1330 IF 0P2$="" THEN 1327 


AS Me E 


1333 IF OPZ$=GIU$ THEN C2=C2+16:0P2=0P2+1:GOSUB1363 
1336 IF OP2$=SU$ THEN C2=C2-16:0P2=0P2-1:G0SUB1363 
1339 IF OP2Z$=US$ THEN 1381 

1342 IF ASCCOP2$)=25 THEN GOSUB 1456:G0T01305 

1345 GOTO 1327 

1363 REM 4k 

1366 IF C2<111 THEN C2=C2+16:0P2=0P2+1 : RETURN 

1369 IF C27207 THEN C2=C2-16:0P2=0P2Z-1: RETURN 


POKESS.C1 :POKESS+1.,C2 
RETURN 

REM dk 

X=XC 

Y=OPZRSZ+VC 

GOSUB 11000 

PRINT" 3h" ;VOSCOPZ> 
FOR T=1 TO 1000 

NEXTT 
POKESS+21,PEEK(S5+21)AND254 
RETURN 

REM Ao 

REM 


1399 FOR J=1 TO NV:READ VOS$CJ> :NEXTJ 
A id 


FOR II=1 TO N' 
R=XC 

Y=I1IXSZ+WC 
GOSUB11000 
PRINT"A";VO$CIT> 
NEXT 11 


1420 
eS 


1433 


RETURN 
DATAD,0,0,0,96,0,0,144,0,3.32,8 

7 DATR4,64,0,3,143,252,17,112,2,224,129,252 
DATAO,63,8,0,65,6,0,63,0,0,31,B 
DATAD, 33,0,0,31,0,224,63,9,16,81,9 
DATR15,30,0,0,0,0,0,6.0,B,5,0,0,0,9 
DATA"1- +NGRESOS Y RETIRADAS" 
DATA"2- MPRESION EXTRACTO CUENTA " 
DATA"S- FPERTURA DE LAS CUENTAS " 
DATA"4- —IERRE DE LAS CUENTAS * 
DATA"S- LISTADO DE BANCOS Y CUENTAS" 
DATA"6- PETIT DEL SISTEMA" 
DATA"B= E T 

REM Pm AYUDA MENU doodioloK 
PRINTCHR$(147> 

PRINTCHR$(14> 

POKESS, 255 

POKESS+1,115 

POKESS+39,6 

POKESS+40,6:POKESS+41,6 
POKESS+21,7 

POKE2048, 13:POKE2041,14:POKE2042,15 
POKESS+29, 4 

FORN=09T062:READO: POKES32+N, Q:NEXTH 
FORN=9T062 : READO: POKE896+N, €: NEXTN 
FORN=0T062 : READO : POKE969+N, (0: NEXTN 
POKESS+39, 1 

POKESS+40, 1 

POKESS+41,1 

POKE 53281,6 

PRINTA KáAÁA A MAAAAAAAAAAAAAKÁA 


PRINTCHR$C19) 

PRINTTAE<11) "MUA 4 TO LN" 

POKESS+2, 255: POKESS+2, 145 

POKES3+4, 245: POKESS+5, 130 

PRINT"MNBNDESPLAZA ABAJO: " 

PRINT"MBBIDESPLAZA ARRIBA: " 

PRINT"RHBRINTRODUCE OPCION ELEGIDA: " 

EEINIOESSS 300 E Mi a 
IFR$=""THENIS13 

Gr 6: POKESS+40,6:POKESS+41,6:PRINT"J" 
DATA3,255,192,12,0,32,16,16,16,32,56,8,32,108,8 
DATRE4, 40, 4,64, 40,4,64,9,4,93,206,223,81,72,164 
DATAS1,206,223,81,66,164,93,46.148,64,0,4 
DATRE4., 44, 4,64, 40, 4,32, 103,8,32,56,8,16,16,16 
DATA12,0,32,3,255, 192 

DATAS, 255, 192, 12,0,32,16.32,16.32,120,8,32,192.8 
DATRE4,120,4,64,32,4,64,0,4,93,206,228,31,72,164 
DATAS1,206,228,91,66.164,93,46,148,64,0,4,64,16,4 
DATR64,120,4,32,12,8,32,120,8,16,16,16,12,6,32, venera 192 
DATAO,0,0,7,255,224,24,0,24,96,0,6,128,D,1, 129,1,129 
DATA134,131,129,132,2,129,132,M,129,142,0,129 
DATR132,0,129, 132,0,129,132,0,129,123,0,1,96,0,6 
DATA24,0,24,7,255,224,0,0,0,0,0,0,0,0,0,0,0,0 

REM FIN MENU PRINCIPAL 


REM 
554 AR PRESENTA MASCARA 44% 


FOR J=1 TO NUC 

Fei 

XEDX OI) :Y=DY CJ) 

GOSUB1 1600 

PRINTDSCJ) 

IF TPCIDOS AND TPCII <A THEN 2060 

X=CR CJ) :Y=CY CJ) 

GOSUB11000 PRINT'A"5BSCI) 

GOTO 2130 

HISLO CI N2SNDCI) IF TPC =1 0 OR TPCI)=2 THEN: CS=NSS:G0T02070 
=AS$ 

FOR I=1 TO Ni-N2-1 


AS=A$+C4 
NEXTI 
IF N2=0 THEN A$=A$+C3:G0T0 2095 
AS$=AF+PDF 
FOR I=1 TO N2 
As$=A9+ "9" 
NEXTI 
ASC CJO ASOMCJO ¿GOSUB 11000 
PRINT "NAS; "a 
BR 
FOR K=1 TO MI-N2-1 


BECIO=BECIOANSS 

NEXT _K 

IF N2=0 THEN BS(J)=ESCIDANSS5 GOTO 2130 
BJ )=DS CJ +PDI 

FORK=1T0N2 

BECI)=BF CI +NSS :NEXTK 

NEXT J 

REM 

RETURN 

REM 


REM 
Ls 4 DATA ENTRY ak 


J 
IRA H=CY CONCA 


GOSUB 3240 

1F FS=9 THEN RETURN 

IF FS=0 THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

REM CARACTER 

J=J+1: ce A THEN 3930 

GOTO 3041 

ON FS B0TO 3130,3150,3170,3190 

IF J>1 THEN J=J-1:GOTO 3040 

FS=8: J=NUC:GOTO 3649 

IF J<NUC 140 J=3+1:G0T0 3049 

FS=M:G0TO 303 

IF CCXLOCJ> THEN S9=1:CC=CC+1:X=X+1:G0SUB 11009:GOTO 3069 
FS=0:G0TO 3100 

IF CC>51 THEN S=-1:CC=CC-1:X=X%-1:60SUB11909:G0TO 3969 
A GOTO 3040 

IF FS>8 THEN FS=B:GOTO 3069 

IF FS=8 THEN FS=9:GOTO 3100 

RETURN 


REM 
Er kk LECTURA DE 1 CAMPO ak 


FS=8 

IF TPCNC)=4 THEN RETURN 

IF MIDS(ES(NCI/CC, 1)=PDS THENX=X+S:CO=CC+S 
GOsUB, 11000 


ñA 
IF A$<>"" THEN 


3338 
GOSUB11000:PRINT"Xa'""; :GOSUB11900:PRINT"A"MIDECBF(NCI, CC, 1); 
td TO 59 


GOTO 3336 
IFASC(AS)=190RASCCAF)=2007RASCCAL)=1470RASCCASI=148 THEN 2330 
PRINT"MA"¡ AS; 

CASASCCAS) 

FOR I=1 TO 15 

IF TFCI>=CA THEN FS=]:1=15:G0SUB3630' RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF TP<HCI<O1 THEN 3450 

IF CA=45 OR CA=46 OR(CAD=4BANDCAC=57)THENS420 
GOTO 3330 

IF CACO46 THENI450 

GOSUE 4274 

IF SWP=1 THEN 3410 

S=1:GOSUB 3520 

IF A THEN' RETURN 


coro 3310 
FE %* TRASFERENCIA AL BUFFER de 
REM 


1F CC=1 THEN SN3$="":GOTO 3590 
SN$=LEFTSCBFCUNCI,CC=15 

IF CC=LC(NC) THEN DES$="":GOTO3610 
N=LC<NCI=CC: DESSRIGHTECBECNCI, NA 
BS(NCI=SNF+AFADES 

RETURN 


REM 
REM dk COMANDOS 4H 
REN 


IF FS>5 THEN 3710 

RETURN 

IF FS=9 THEN GOSUB 13000: GOSUB7000: RETURN 
IF FS=3 THEN GOSUB 4080:RETURN 

IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3740,3910 

RETURN 


REM 
REM 4% INSERCIÓN dk 
REM 


IF CC=LOCNCITHEN RETURN 
IF CC=1 THEN SN$="":G0T03300 
SHS=LEFTECBFUNCA, CC-1) 
M=LC(NCI=CC+1 
DES=RIGHTSCBSONCO NA 
Cé=BL+ 

AS=SN$+C4+DES 
BS(NCI=LEFTECAS, LECHO 
ASA 
XECRCUNCO + Y=CW UNC 
GOSUB11000 

tr a 


REM 
PRINT BS$CHC):S=-1 
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IF RIGHTS<BSCNC), 12=FDS THEN 3730 
RETURN 


3 REM 
REN ARA BORRADO dodo 


En 

IF TF(NC)<>51 THEN 3950 

IF MIDSCESCNCI,2,19=PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

1F CC=LC(NC) THEN DES$="":G0TO 3988 
N=LC<NCI=CC:DESSRIGHTSCBSCONCO NA 
SN$=LEFTS(BF CNC). LC-1) 


IF A OR TPONCI=2 THEN Cé=NS$:60TO 4019 
C$=A9+ 

BSCNCI)=SNPADES+HCS 

XRSR iv 

R=CRXONCO “=CWONCO 

GOSUB11000 

ARO 

PRINT B4(NC):S=1:RETURN 

g= 

RETURN 

REM RR ALLINEAMENTI ooo 


IF LC(NC)=1 THEN RETURN 
N1=LC(NCI=CC+1 

IF CC=1 THEN B$(NC)="":G0TO4100 
BSONCIFLEFTECBSCONCI/CC-1) 

IF TPCNCI=1 OR TPONC>=2 THEN 4150 
FOR I=1 TO Ni 

BS(NCI=BFUNCI+BLS 

NEXT 1 

GOTO 4198 

FOR I=1 TO M1 
ASA 

IF RIGHTS$CBSCNC>,1)=PDF THEN BSC(NC)=BLS+LEFTFCBICNCA + LOCNCI10 
AECRUNCI ¿W=CYONCI 

GOSUB 11000 

BE BS (NC) RETURN 


RE 

REM 

SuP=0 

IF CC=1 OR CC=LC(NC> THEN SWP=1: RETURN 

FOR I=1 TO LC(NCA 

IF MIDS$CBSFCNC>, 1,19=BLS THEN I=LC(NC) :SHP=1 ¿RETURN 
NEXT T:RETURN 

REM 

REM 


6 REM 
REM4kk CESTION CINTA 444 
2 REM 


PRINTHOS:PRINTCHR$C14):R$="" 
RP A LA CINTA DATOS " 


mM 
A 1000: PRINT"E ECHO Cal =CONTINUA, E VUELVE MENU) " 


IF R$="" THENGO1S 

IF R$="N" OR R$="/" THEN RETURN 
IF R$<>"S" AND R$<>"e" THEN 6012 
2=2:W=19:G0SUE11000 
PRINT" 2" ¡UFCRG) 
X=0:=0:COSUBL1O00:PRINTUZ"; 

Ren RG GOTO 6200, 6400 


OFEN 1,1,0,"BNC" 
INPUTH1, BES 

CLOSE1 

OPEN 1,1,0, "CUENTA" 
FOR RE=0 TO 100 
INPUTH1, AAFCORES 

NEXT RE 

CLOSE1 

A S7=2:RETURN 


OPEN 1,1,1,"BNC" 
PRINT41,EBF 

CLOSE1 

OPEN 1,1,1. "CUENTA" 
FOR RE=9 TO 100 
ALL E 


PRINTHOS 

RETURN 

REM 

PRINTHOS :X=2:Y=15:G0SUB11000:PRINT"K 31302 OTRA INTRODUCCION" 
Y=4+2:GOSUB11000 E 

PRINT"¿K DN REGISTRO DE DATOS WA INTRODUCIDOS" 
INPUT"MIIMABDHUAL 2" ,50 

IF SG<=6 OR S002 THEN 6S10 


RETURN 

REM 

REM 484 CARGA LOS DATA dk e 

IF DPZ=S THEN YO$<OPZ29=" — —<MPRIME LISTA " 
L=LENCVOSC0P23)-3:Lé=RIGHTS(WOSCOPZ3 LL: 1F OP2Z=0 THEN 7005 


UES!SDZ "+STRECOPZIFCHRECIZA 
P=(30-L)42:P$="":FORK=1TOP :PS=P5+CHR$(32): NEXT K 


PRINT HO$;5 

PRINTCHR$C14) 

PRINT"MR Mn... CDICIONES DRUM, 4.4." 
PRINTER "¡Us "9 3 
PRIMT "Mm 


E 
1F OP2=6 THEN PRINT" 3 ma"; 
PRINTS LEPE 
PRINT"IBBADRDI ES El 
H=1:W=22:GOSUB11000 
RI AÁ$ÁÉ—_—_—_—_—_—————————— 4, 
ACA LAA 


IF OPZ=0 THEN RETURH 

ON OPZ GOTO 7050,7110,7060,7110,7110.7110 
L=15:C00SUB20000:NUC=7 

G0TO7090 

LW=71:G0SUB20090 :NUC=3 

G0TO7890 
AOS 

FOR I=1 TO NUC:READ D$<1>:NEXTI 

FOR I=1 TO NUE 
AO GP SARA 
El 


NEXT 1 0 
RETURN 

REMO EXTRACTO CUENTA 4444 

REMRER EXTRACTO: CUENTA 44444 

GOSUE 7060 

X=13:Y=11GOSUBLIDOO:PRINTUACALO MIA" 
X=13:W=13: G0SUB11000:PRINT"WC 2080 MA AL" 
NA al 
X=16:W=18:G0SUB11000:PRINT"MLA 4"; 
R=22:4=18:009UB11090 

GET SC+: 1FSC$=""THENGOSUB11000:PRINT"37":GOSUB11606:PRINT" ":GOTOSG09 
SOSsWAL(SCL) IF SCI OR-5073 THEN 8008 

IF SC=3 THEN RETURN 

PRINTHOS GOSUBZODO 
X=13:W=11:G0SUB11000:PRINT"3ILEON”/ ¡LOTA 
X=13:W=13:G0SUBVIG0O:PRINTURCANTA TT" 
X=16:Y=15:G05UB11000:PRINT"ULa 4": %=22 

GET859: 1FSS$=""THENGOSUB110007PRINT"30""GOSUBLLOOOPRINT"":GOTOSA4O 
SS=VAL(SS4):1F 55<1 OR 5332 THEN 8040 

IF SS=1 THEN “OPEN44 

IF 57<)b THEN 8070 

RG=1 

GOSUBEODO 

IF /RS="N' OR -RE=" 2 THEN? RETURN 
CSC1)=LEFTSCEBS, 20) 

CEC2ISMIDECBRES 21,69 

CSc3)=MIDSCBES, 27, 4) 

C4(9I=MIDIE(BES 31,3) 

CS(S)=MIDSCBES, 34,9) 

2SC5)=MIDICBES, 43,9) 

CSC73=MIDSCBES,52,8) 

C3CB)SRIGHTECBEL 7) 

ZESVAL(CS(S)) 

ZUSVALCCIC5)) 

Z1$=C4(7) 

URSWALICFC4I) 

MA=VALCAASCO)): REM ULTIMO REGISTRO 

REI RRRIARA 

PRINT HOS 

RE ARRIRORRAOA 

IF S5<21 THEN 8135 

CMDASPRINT"EXTRACTO CUENTAN 0% 

PRINTCHR$(17); :PRINTCHR$C14)CF(1);CHRGC1S); :PRINTCHR$( 145) 

PRINTCHRECISITABCZI FECHA! SPOCNIMPORTE "ESPOLI MOTIVO COTOS IA? 
PRINTCHR$(146); 

PRINTURERTRACTO CUENTAS MORa Lyn 

PRINT:PRINT 

SCA rl E A E 

IF SS=1 THEN PRINTHA 

1F_S0=1 THEN-M1=9:G0TD: 8180 

REM APERTURA: FICHERO MOVIMIENTOS 


FOR JJ=0 TO mM 

1F JJ=8 THEN 5205 

DISSLEFTFCARFCID 2) 

MMé=MIDSCARSCITA, 3,2) 
AA EIA AEREO 20) 

IF WALCDDS)=0 THEN $: 

1F JI<M1 THEN 28200 

IF S35<71 THEN 8194 

Ena PRINTDDS; SLEJ MIES TABCO) ¿MOSS TABCID) cus 
F S5=1 THEN 8193 

PRINTOHRECS); 

PRINT DDS;SL+;Mng 

PRINT"TABC9); MOS 

PRINT""TABC1 9); CUE 
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8199 1F SS=1 THEN PRINTH4:GOTO 8205 
2200 Y=4+1:IFY<19 THEN 2205 
3201 X=2:Y=20:G0SUB11000:PRINT"2PULSAR UNA TECLA PARA CONTINUAR" 
3202 POKE198,0:NAIT198,1:PRINTHOS:Y=1 
8205 NEXT JJ 
8206 DD=WALCDD+> 
2207 MM=AL CMmé> 
2210 1F DD=0 THEN 3490 
8215 22=2E-2U 
8217 225=3TR$(22> 
8218 LT=LENC223$) 
5220 1F LT=9 THEN 8226 
8225 FOR K=1 TO 9-LT:223=CHR$(32+22$:NEXT K 
IF S3<21 THEN 8234 
CMD4:PRINT:PRINTCHR$C18)"SALDO :";:PRINTCHR$<146>;224 
ETiT pereiccrnremcnares DEVENGADOS 07 PRINTCHR$C146)5214 


3226 

8227 

2228 

8229 

5230 GOTO 8247 

6234 PRINT:PRINT 

8235 PRINT"IWALT_: A" TABC20):224 
8240 PRINTUMAT070 CANTO: aMiZl$ 
8245 PRINT"Me-== > y 
8247 1F SS=1 THEN PRINTH4 

3250 Z2=22+YALCZIG) Z2G=STRÍCZZ) 
8255 LT=LENCZZS) : IFLT=9THENS265 
8260 FOR K=1 TO 9-LT 

8261 2Z$=CHR$(32)+225:NEXTK 

8262 IF S9<>1 THEN 8265 

8263 CMDA:PRINTCHRSC1E); "TOTAL :";CHR$C146);224 
8264 GOTOS266 

8265 PRINT"MIMIAL : aU;TABC20)5223 
8266 1F SS=1 THEN PRINTHA 

8270 IF SC<>2 THEN 8490 

8200 Z=UR+1:YE=4:V0=0 

8305 GOSUB25000 

s310 REM 

3320 BES="" 

$330 FORL=1 TO 8 

8340 BES=BES+CSCL) 

8350 NEXTL 

2400 POKE 198,9 

8495 CLOSE4 

8407 X=2:Y=21 

2498 GOSUB1 1900 

6419 PRINT"2T Loft ¿/4 17LA MA OI ANO" 
8415 GET As 

8416 1F At="" THEN 9415 

8417 IF. SC<32 THEN 8459 

8429 RG=2 

3430 GOSUB 6008 

2450 RETURN 

2500 REM 444 IMPRIME LISTA 4kkk 
9501 IF 57<)0 THEN 2529 

8562 RG=1:G0SUB 6000 

8505 1F R$="N" OR R$="/" THEN RETURN 
8529 PRINT HOS:G0SUB 7000 

8520 K=13:Y=11:GOSUB11000:PRINT"ECALBD MT NLIOA" 

8531 Y=14:G0SUB11000:PRINT"RD MY XT" 

8532 X=16:Y=17:GOSUB11000:PRINT"ML> 4": 2=22 

9533 GET SS: IF S9$="" THEN GOSUB11000:PRINT"3u?":GOSUB11000:PRINT" ":G0TOSS33 
8534 SS=VALC(SS$):1F S5<1 OR $822 THEN 8533 

8535 1F SS=1 THEN OPEN, 4 

8567 CSC1)=LEFTS(BBS,20) - 

8568 C$(23=MID$(BB$,21,6) 

3569 C$(3)=MIDS(BBL, 27,4) 

8570 C5(4)=MIDECBES, 31, 3) 

8571 C$(S)=MIDICBRS, 34,9) 

8572 CS(6)=MIDICBES, 43,9) 

8574 C$(7)=MIDICBES, 52,8) 

8575 C$(8)=RIGHTSCBES, 7) 

S60h 
8610 
8615 
8616 
8617 
8618 
8620 
8622 
8625 
3630 
8635 
8636 
8637 
2640 
8642 
2644 
8646 
2648 
8665 
8667 
2668 
2670 
2680 
2690 
8695 
2700 


REM 
1F 5551 THEN 28640 
CmMD4 


PRINTCHR$(1495CHR$C17 9 50$C1) 
PRINTCHR$(145) 
NA 1150502) 


PRINT"ENTRADAS MOTE 
PRINT"SALIDAS :";C+$(6 
PRINT:PRINT"TASA ITEReS e TO 


PRINT 
PRINT"INTERES DEWENGADO =";C3(7) 
PRINTH4: PRINTH4 
IF SS=1 THEN PRINTR+4:G0TO 8665 
PRINTHOS:PRINT"ROCSC1A 0. 1 
PRINT"RIT/1 4740 "5C$(5):PRINT" 
PRINT"AMI 40% 1 MCDS 
PRINT"DWA 7-70 CANT =2 50907) 
CLOSE4 
X=2:W=21 
60SUB1 1000 
SA E E 
POKE 198,8 
GET AS: IF As="" THEN 3690 

TURN 


REM 4 CIERRE CUENTAS dota 
8/01 IF 37<50 THEN 8705 


. 
ps] 
a] 


AT 
E LM CECO) 


Pas] 
m 
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RG=1:GOSUB 6609 

TF Ré="N" OR R$="7/" THEN RETURN 

PRINT HOS:GOSUB 7000 
4=3:=10:G0SUB11000:PRINT" ATENCION. CIERRE CUENTAS EN CURSO" 
2=10:Y=12:G0SUB11000:PRINT" REXCONTINUO (S/N>":X=25:G0SUB1 1000 


GET R$: IF R$=""THENGOSUB11000:PRINT"MI?":GOSUB11000:PRINT" ":G0TO8720 


IF R$="N" THEN RETURN 
IF R$<>"S" THEN 8729 
PRINT HO+:GOSUB 7000 


730 CSC19=LEFTS$CBRS,20> 


C$C2)=MIDSFCBBS, 21.6) 

C$c39=MIDSCBBE,27,4) 

C$(43=MIDSCBB+,31,3) 

C$(5)=MIDS$<BBS, 34.9) 

C+c6)=MIDFCBBS, 43,9) 

C$:7)=MIDSCBBE,52,8> 

C$C(3>=RIGHTS(BES, 7) 

REM: CALCULO: SALDO BANCO M. 11 + 

SA=YAL CCSS) VAL (CS (6) 7+WALCCEC7)) 
%=1:Y=10:GOSUB11000:PRINT"MI4/FT: MSC$C1) 
Y=Y+2:C0SUB11000:PRINT"E9BLT” —,/8L =8";SA 
REM AA PUESTAS A CERO det 

Z=0:WB=4:0=5: GOSUB25000 

YB=5:V0=9:G60SUB25999 

VB=6'0=9:COSUB25090 

VB=7:0=8:'G0SUB250009 

PB4="" 

FOR L=1 

ii cede 

REM vi PONE A O FICHERO BANCOS dk 

RENGA Re pone A FICHERO MOVIMIENTOS Aer 

FOR I=1 TO 39:AA$(0)=RA$(0>+NS$:NEXTI 

FOR K=1 TO 100:RA$CK>)=ARA$CB5 : NEXTK 
X=2:=19:G0SUB11000:PRINT"IPULSAR UNA TECLA PARA CONTINUAR" 
POKE198,0:WAIT198, 1 

RG=2:G0SUB 6009 

PRINT HO$:%=7:Y=10:G0SUB11000:PRINT" ECTERRE CUENTAS TERMINADO" 
4=2:Y=+5:G0SUB11000: EOUONeasE UNA TECLA PARA VOLVER AL MENU" 
GET R$:IF R$="" THEN 888 

RETURN 

REM SUBRUTINA DE ERROR 
X=10:G0SUB11000:PRINT" TZ 77 ALTAS NS" 
FOR T=1 TO 500 

GOSUB110900:PRINT" » 

RETURN 


190000 eN HA AAN DATA AAA RCA: 


10019 DATA 145,17,29,157,140,133,136,13,25,134,135,0,0,0,0 

10013 REM Ad OP Z SL 

10015 DATA" ART) MBA A DDD MANTA MANTIS 
10025 REM 

10055 DATR4,20,0,1,8,20,8,4,6,0,1,10,20,10 

10057 DATA1,2,0,1,14,20,14,4,1,0,1,1,22,14 


DATA1,2,0,1,1,23,14,1,8,0,1,16,20,16 
DATA3,20,0,1,20,20,20 

REIR OP Z=S A O 

DATA" AITOR A0 1" 
DATA3,20,0,1,8,1,10,3,6,0,23,8,23,10,1,4,1.30,8,33,10 
SE% OACI IRONIA 


En 
REM OR POSICIONADO EN X.Y Ao 
POKE 211,X 


11010 POKE 214,%Y 


SS 58732 


11020 RETURN 


REM 
a Ak GENERACION SISTEMA 44% 
GOSUB 7000 


12005 X=10:Y=10'G0SUB110901 


la) 
PRINT"AIISENERACION EN CURSO" 
4=10:Y=15:G0SUB11000 
INPUT"CONTINUO (SI/NO) A" RE 
IF R$="SI" THEN 12140 
RETURN 


12140 BB+="" 
12150 FORK=1 TO 66 


za 

NEXTK 

ARI 

FOR K=1 TO 39 

o 

FOR K=1 TO 100:RA+$CK>=AR+$(0) :NEXTK 

X=59:W=11 :GOSUB11000 

PRINT"SESTE PROGRAMA ESTA PREDISPUESTO" 
v=w+1:G05UB11000:PRINT"PARA UN MAXIMO DE MIGO: MOVIMIENTOS" 


12185 RG=2 


GOSUE 6010 

RETURN 

REM Ae AYUDA do 
PRINTHOS; :PRINTCHR$(142>5 


13010 POKES3280,6 


PRINTTAB<S)"MACRSR RIGHT : M3 MUEVE A DERECHA  " 


13020 PRINTTRECS)"MACRSE LEFT: 2 MUEVE A IZQUIERDA" 
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13024 PRINTTABC(S)"MACRSE UP 
13025 PRINTTRECS)"MACRSR DON 
13039 PRINTTAB<S) "MA Fl” 
13035 PRINTTABXS>) "MA F3” 
13040 PRINTTAB(S) "MA FS” : 3 BORRADO 

13045 PRINTTAB<S) "MA FF?” F RETORNO AL MENU 
12047 PRINTTABIS>"MA FO” 1 ENTRADA DATOS 
13058 Parral cil ad : E AYUDA 


13055 R 

13060 PRINTTABCS) "NARETURN = ALINEAR 
TO De PIES MbLES UNA TECLA PARA VOLVER" 
13067 1FRS="THENIGOSS 

13068 PRINTHOS 

13069 POKES3280,14 

130706 RETURN 

20009 REM RESTORE DATA 

20005 RESTORE 

20010 FOR I=0 TO 62:READ D:NEXTI 
20020 FOR I=1 TO 7:READ X4:NEXTI 
20025 FORK=1 TO 3 

20030 pt I=0 TO 62:READ D:NEXTI 
20035 NEXT K 

20045 IF Ly<b Ati, RETURN 

20059 FOR I=1 Ly 

20660 READ ra 

20070 NEXTI 

20100 RETURN 

ZOO RENA e A ci 
25002 REM AL BUFFER 

25010 Ri$=STRSCZ) 

25015 IF LENCALS)=40 THEN CS$(WB>=A14: RETURN 


N MUEVE ARRIBA 
Si MUEVE ABAJO 
: 1 ANULACIÓN 
: 1 INSERCION 


25020 1F LENCAI$)WO THEN CS(YB>=LEFTSCA1S, 9) RETURN 


23025 NB=Y0-LENCA1S):A2$="" 
25030 FOR Y=1 TO NE 

25035 A2$=A2%+CHRS(32):NEXT Y 
25040 CS$(VB>=A2$+A14: RETURN 


RELACION DE LAS VARIABLES COMMODORE 64 


BL$ =" 
ER$ = »Er 
PD$ =?*." 
AS$ ="" 


NS$ = "Se" 
HO$ = 
SL$ ="/" 
US$ = 


NV = 


F1$ = "BNC” 
F2$ = "CON" 


(blank) 

(por error) 

(punto decimal) 

símbolo de campo 
alfanumérico 

símbolo de campo numérico 
carácter CLR/HOME 


tecla para la elección 

del menú 

número de voces en el menú 
principal 

nombre del fichero BANCOS 
nombre del fichero CUENTAS 
flag para la lectura en vacío 
buffer para la lectura en vacío 
cabecera (subrutina 7000) 
opción seleccionada 
cabecera (subrutina 7000) 


número de campos de introducción 


nombre del fichero de datos en 
curso de proceso 

tecla pulsada 

longitud del campo actual 


número de decimales en el campo 


actual 
número del campo actual 
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GGS$, MM$ = 
D1,D2 = 


contador de caracteres 

tecla funcional 

código ASCII del carácter 
introducido 

flag para escritura de registros 
nombre del fichero considerado 
número de registros que el fichero 
puede albergar 

código de la cuenta pedida (1 a 5) 
matriz para la lectura de los registros 
segmentos del registro 
(dimensionada por omisión) 


datos relativos a un movimiento 
registro actual 

día y mes del movimiento 

leído en el fichero 

fecha del movimiento introducido 
días transcurridos entre 

el último movimiento registrado 

y el actual 

saldo 

flag para extracto de cuenta parcial 
o total 

flag para salida en impresora o 
en vídeo 


La lógica del programa 

Este programa permite mantener constantemente 
actualizado el cuadro de la propia situación ban- 
Caria. Se ha previsto la posibilidad de gestionar 
hasta cinco cuentas corrientes, abiertas eventual- 
mente en cinco bancos diferentes, memorizando 
entradas, salidas, motivos, intereses y saldos, 

El menú principal del procedimiento, de la foto- 
grafía de la página 56, ya da una idea de las fun- 
cionalidades del programa. La gestión de una 
cuenta corriente bancaria prevé cinco etapas : 


"= Apertura de la cuenta corriente, con un even- 
tual depósito inicial. 

m Registro de los movimientos (ingresos y retira- 

das) 

Impresión del extracto de la cuenta 

Cálculo de los intereses devengados y el saldo 

Cierre de fin de año (capitalización de los inte- 

reses) 


A estas funciones deben añadirse las propias del 
programa, que permiten organizar los archivos en 
los que hay datos, así como procesar los propios 
datos según las diferentes necesidades. 


Estructura de los ficheros utilizados. El progra- 
ma requiere la gestión de seis ficheros, El prime- 
ro, BNG, contiene los datos y los saldos tempora- 
les de las cinco cuentas corrientes, y en los otros 
cinco se memoriza” los movimientos efectuados 
en cada una de las cinco cuentas. 

El fichero BNC tiene cinco registros, uno por 
cuenta; cada uno prevé los siguientes campos: 


Campo Longitud 


A 20 
Número de cuenta ...... 
Tasa interés ............ 
Número del último 
movimiento impreso . 
Totalentradas .......... 
Total salidas............ 
NETOS. arab! 


Total caracteres 


El primer campo contiene el nombre del banco, y 
el segundo el número de la cuenta corriente. El 
campo n.* 3 contiene la tasa de interés perceptivo 
en puntos porcentuales (por ejemplo, si la tasa es 
el 12%, el valor a introducir es 12). 

El campo n.” 4 sólo tiene finalidades prácticas, 
porque los diversos movimientos efectuados se 
han memorizado en los ficheros de movimiento y 


pueden imprimirse en cualquier momento, dando 
lugar al extracto de la cuenta. No es necesario 
repetir las impresiones ya realizadas. 

Este campo memoriza el último registro impreso 
para poder activar la impresión de un nuevo ex- 
tracto de cuenta del siguiente movimiento, evitan- 
do así duplicaciones. 

Los campos n.* 5 y n.* 6 permiten pedir el saldo 
por diferencia. Se ha optado por memorizar por 
separado el total de las entradas y el de las sali- 
das; esto implica la necesidad de realizar una di- 
ferencia de más cada vez que debe calcularse el 
saldo, pero en cambio se obtiene una visión más 
detallada de la evolución de la cuenta. 

El último campo contiene el interés calculado, yel 
registro tiene un «filler» de 7 caracteres que pute- 
de utilizarse para implantaciones futuras. 

Cada una de las cinco cuentas gestionadas por 
el programa necesita un fichero en que memori- 
zar los movimientos; por tanto se tienen cinco fi- 
cheros distintos de movimientos. Para distinguir 
sus respectivos nombres se han formado con el 
prefijo CON seguido de un número entero com- 
prendido entre 1 y 5; así, CON 1 contendrá los 
movimientos efectuados en la primera cuenta, 
CON 2 los de la segunda, y así sucesivamente. 
En la fase de generación del sistema, los cinco 
ficheros se crean tanto si existe como si no la 
cuenta correspondiente; esto es necesario para 
poder abrir las cuentas en un momento dado. 

El formato del registro común a todos los ficheros 
de movimientos es el siguiente: 


Campo | Contenido Longitud en 
n. caracteres 
1 
2 
3 
4 


Fecha movimiento 4 (DDMM) 

Importe 9 (8 útiles más el signo 
menos para las 
retiradas) 

20 

6 


39 


Motivo (notas) 
Filler 


Total caracteres 


El programa principal. Utilizando los ficheros 
descritos, el programa deberá poder realizar las 
siguientes funciones: 


1 / Registro de los movimientos (ingresos y retira- 
das) 

2 / Impresión del extracto de cuenta 

3 / Apertura de las cuentas 

4 / Cierre de las cuentas 

5 / Impresión de la lista (bancos y cuentas) 

6 / Generación del sistema. 
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Cada función también se cita en el menú del pro- 
grama visible en la primera foto de la pág. 56. 

Las operaciones no se han indicado en el orden 
lógico de realización, sino según la mayor o me- 
nor frecuencia de empleo, como a menudo suce- 


de en los programas de aplicación. La exposición 
que sigue, en cambio, se estructurará según el 
orden de activación de las diferentes voces. 

El diagrama de flujo principal es muy sencillo y 
puede verse abajo. 


PROGRAMA PRINCIPAL 
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La forma presentada, articu- 
lada en un programa único 
que llama diferentes subruti- 
nas, puede modificarse fá- 
cilmente subdividiendo el 
procedimiento en otros tan- 
tos programas separados, 
uno para cada voz. Con es- 
ta solución se tendría una 
mejor estructuración del 
programa, pero también la 
necesidad de repetir algu- 
nas partes comunes como 
la inicialización, la data en- 
try, etc. Este tipo de solución 
se adoptará en los progra- 
mas más complejos que re- 
quieren una mayor ocupa- 
ción de memoria. En este ti- 
po de estructura debe pres- 
tarse mucha atención a la 
numeración de las líneas. 
Algunas rutinas deben ocu- 
par posiciones fijas porque 
son llamadas desde diferen- 
tes puntos. 

Las voces citadas consti- 
tuyen el menú del programa; 
por tanto, en la rutina de pre- 
sentación y de gestión del 
menú ya descrita, basta 
sustituir los DATA de la des- 
cripción. Las otras funciones 
se realizan utilizando los mó- 
dulos de la data entry. 

El orden de presentación de 
las diferentes voces sigue la 
lógica de la frecuencia de 
empleo y no la de prioridad. 
Las voces 1 y 2, utilizadas 
con más frecuencia, apare- 
cen en las primeras líneas. 
La voz 6 es la última en pre- 
sentación, pero la primera 
que debe utilizarse, porque 
la primera operación a reali- 
zar es la generación del sis- 
tema; sólo en una segunda 
etapa pueden abrirse las 
cuentas y después introdu- 
cirse los movimientos. 

Las voces 2 y 5 no tienen 
una prioridad precisa, y 
pueden pedirse en cual- 
quier momento. Finalmente, 
la voz 4 (cierre de las cuen- 
tas) sólo debe utilizarse a fin 
de año. 


GENERACION DEL SISTEMA 


y 
y 
sip 
y 
| mae | 


y 


Escribe AAS 
en el registro NA 


La generación del sistema, si se 
activa por error, produce la 
pérdida de los datos contenidos 
en la cinta o en el disco. Por 
tanto, el programa pide 
confirmación antes de seguir 


Para respuesta negativa 
(diferente de SI) sale y recarga 
el menú $ 


Fichero de nombre BNC 
(bancos). Longitud registro 
66 bytes 


Prepara la cadena AA$ que 
contiene 66 espacios en blanco 


Primer registro del fichero 
bancos 


Pone a0 el registro (Sistema 


Apple) 


Fin puesta a 0 fichero bancos 


AAS contiene 39 espacios vacios 
(formato registro de los ficheros 
CON...) 
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Resumiendo, las funciones 
a activar para utilizar el pro- 
grama son, en orden: 


m Generación del sistema 
(voz 6) 

m Apertura cuentas (voz 3) 

E Movimientos (voz 1) 

E Impresión de movimien- 
tos y lista (voces 2 y 5, sin 
ninguna prioridad) 

m Cierre (sólo a fin de año). 


Generación del sistema 
(subrutina 12000). La pri- 
mera vez que se utiliza el 
programa debe llamarse la 
voz 6 (Generación del siste- 
ma). Esta subrutina sirve pa- 
ra inicializar la cinta o el dis- 
co que deberá contener los 
datos y, por tanto, debe lan- 
zarse una sola vez por cada 
cinta o disco que se quiera 
emplear. Si en el soporte 
magnético utilizado no ca- 
ben las cinco cuentas, de- 
berá utilizarse un segundo 
soporte. Con este sistema, 
el número de cuentas no tie- 
ne límite; sin embargo, el 
usuario deberá elegir la cin- 
ta o el disco necesario en 
cada caso. Es decir, deberá 
recordar cuál es la cinta o el 
disco que contiene los datos 
necesarios. 

La generación del sistema 
es un procedimiento auto- 
mático, aparte de la intro- 
ducción del número máximo 
de movimientos anuales. El 
límite en este programa es 
de 100 (unos 2 movimientos 
por semana en cada cuen- 
ta), y puede ser en muchos 
casos excesivo. En la fase 
de generación puede esta- 
blecerse un valor inferior, 
obteniendo así una mayor 
velocidad de ejecución del 
programa. El diagrama de 
flujo se ha representado en 
esta página y en la siguien- 
te. Las funciones realizadas 
son: 


"m Diálogo inicial para la 
confirmación 
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Escribe AAS 
en el registro NR 


y 


Vuelve al 
menú 


Los ficheros CON tienen 
longitudes (número de registros) 
iguales al número máximo de 
movimientos previsto 


NM = Número máximo 
de movimientos 


Este valor sólo es indicativo; si es 
necesario, durante la utilización los 
los ficheros se amplían 
automáticamente 


Ala generación de los 
ficheros de movimientos 


Primera cuenta 


J indica la cuenta. 
Longitud registro 40 bytes 


Bucle de puesta a O registros 
del fichero CON J 


(Sistema Apple) 


Los registros del fichero son 
NM + 1. 

El primero es para el directorio y 
los otros para los datos 


Fin puesta a 0 fichero CON J 


m Creación del fichero de la 
lista (BNC) con 5 regis- 
tros en blanco 

m Creación de los ficheros 
de los movimientos, cada 
uno con un número de re- 
gistros igual al dado por 
el usuario. 


La primera función es nece- 
saria para evitar errores ac- 
cidentales. En general, to- 
das las voces de menú que 
pueden producir pérdida de 
datos deben contener una 
petición de confirmación pa- 
ra evitar el lanzamiento acci- 
dental de la función. Un se- 
gundo método, automático, 
sería la comprobación de si 
existe el fichero BNC; en ca- 
so afirmativo no se procede- 
ría a la generación. 

Las dos funciones que si- 
guen (creación del fichero 
BNC y de los 5 ficheros de 
movimientos) podrían evitar- 
se, porque en general no es 
necesario predisponer el es- 
pacio en la cinta o en el dis- 
co antes de escribir los da- 
tos. Esto se ha hecho para 
tener los ficheros agrupados 
en un espacio contiguo, ob- 
teniendo así una mayor ve- 
locidad de acceso. En parti- 
cular, el programa pide la 
longitud de los ficheros de 
movimientos sólo para dar 
un orden de magnitud ini- 
cial; en caso de necesidad, 
el sistema operativo del Ap- 
ple crea las oportunas ex- 
tensiones (sin embargo, en 
el programa hay un control 
que limita a 100 el número 
máximo de movimientos 
previstos para cada cuenta). 


Apertura de las cuentas 
(subrutina 800). La función 
debe activarse después de 
la generación del sistema y 
antes de utilizar el progra- 
ma. El diagrama de flujo 
puede verse en esta página 
y en la anterior. Esta subruti- 
na permite introducir la lista 


APERTURA DE LAS CUENTAS 


A 


Indice para la preparación de la 
data entry 


Primer registro del fichero BNC 


A C$(1) bid 20 caracteres 
ri ectura del ; C$(2) Cuenta 6 caracteres 
registro se utiliza O C$(3) Tasa 4 caracteres 
la matriz CS (+) C$(4) Filler 36 caracteres 


Prepara B$ (+) para 
la data entry 
(ver máscara) 


Puntero para la siguiente 
cuenta en la matriz BS(*) 


MN 


== 
Ez 
: Si 


Tventuales importes de apertura 
deben introducirse con el 
procedimiento normal 

de los movimientos 


Cierra el fichero y 
vuelve al menú 


Transferencia al fichero 
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de los bancos y de los nú- 
meros de las cuentas co- 
rrientes, y puede emplearse 
tanto para la introducción 
como para la variación de 
datos ya existentes. 

Los ficheros de movimien- 
tos, uno para cada cuenta, 
se generan y se ponen a ce- 
ro aunque no se utilicen in- 
mediatamente. Esto permite 
tener disponibilidad de es- 
pacio en la cinta o en el dis- 
co para el archivado de los 
datos correspondientes a 
cuentas abiertas en diferen- 
tes momentos. 

Sin embargo, supongamos 
que sólo se ha abierto una 
cuenta corriente. En la más- 
cara vídeo visible en la pági- 
na 57 sólo se habrá llenado 
la primera línea, pero el sis- 
tema habrá reservado espa- 
cio para otras cuatro cuen- 
tas. Si después se quiere 
abrir otra cuenta, bastará re- 
clamar la voz «Apertura 
cuentas». El programa pre- 
sentará de nuevo la másca- 
ra de introducción de la lista 
de cuentas, que deberá 
completarse con los datos 
de la nueva cuenta. 


Movimientos — (subrutina 
4000). Esta subrutina permi- 
te introducir todos los movi- 
mientos efectuados en una 
determinada cuenta. El dia- 
grama de flujo se ha repre- 
sentado en las páginas 79 y 
80, Las funciones que reali- 
za son las siguientes: 


= Comprobación de la exis- 
tencia de la cuenta 

" Entrada del movimiento 

"m Cálculo del interés 


La primera función es nece- 
saria para evitar errores de 
atribución. 

Cada cuenta está identifica- 
da por un valor numérico 
comprendido entre 1 y 5. La 
primera petición de la subru- 
tina es el código de la cuen- 
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Selección primer 
registro 


Puntero para el 
desempaquetado de B5 (+) 


Transfiere de B$ (+) 
aC$ (+) 


Inicializa la cadena de 
transferencia a la cinta 
o al disco 


Indice para la formación 
del registro 


Forma el registro 


ta, con presentación de la 
lista (banco y número) para 
poder comprobar su exacti- 
tud. Después se presenta 
una máscara con los datos 
del movimiento: fecha (4 ca- 
racteres), importe (9 carac- 
teres), motivo (20 caracte- 
res). 

En esta fase, el usuario de- 
be especificar si se trata de 
un ingreso o de una retirada. 
En el primer caso no es ne- 
cesario el signo, mientras 
que en el segundo debe es- 
pecificarse el signo negati- 
vo. No se ha previsto la fun- 
ción de corrección; por tan- 
to, para borrar o variar un 
movimiento erróneo debe in- 
troducirse otro de signo con- 
trario con la misma fecha y, 
para borrar, con el mismo 
importe. Así queda constan- 
cia de todas las operacio- 
nes realizadas; si se hubiese 
incluido la posibilidad de 
aportar correcciones, po- 
drían tenerse cifras diferen- 
tes sin poder determinar si 
se trata de un error o de una 
corrección. 

La introducción de los movi- 
mientos se divide en dos 
partes: la primera comprue- 
ba que la cuenta exista real- 
mente; la segunda genera el 
movimiento, lo memoriza en 
el fichero de la cuenta y cal- 
cula el interés. En esta fase, 
el interés sólo se calcula y 
se suma a los devengados 
anteriormente; su capitaliza- 
ción, o sea su suma al saldo 
de la cuenta para obtener el 
capital total, sólo se hace a 
indicación del usuario, nor- 
malmente una vez al año 
(cierre de las cuentas). El 
cálculo del interés sólo se 
realiza durante la introduc- 
ción de los movimientos, 
aunque también podría rea- 
lizarse en la fase de capitali- 
zación. El método usado es 
el siguiente. 

En el fichero de la lista se 
memorizan además el saldo 


TA = Tasa interés 
TE = Tot entradas 
TI = Tot. interés 
TU = Tot. salidas 


O—— y 


ag registro 0 


RE contiene los datos del último 


movimiento introducido. En 
particular, la fecha y el 
importe para el cálculo de los 
intereses (DD$, MMS, IM) 


MOVIMIENTOS 


El código que identifica 
banco y cuenta es el 
número de registro en el que 
se memorizan los datos en el 
fichero BNC 


Sólo se controla el primer 
campo. Si está en blanco, 
el código introducido es 
erróneo 


Comprueba si el registro 
está lleno de b 


Para el Commodore 64 
ZA, ZE, Zl, ZU 


Nombre del fichero = CON + 
+ "código" (CON 1, CON 2, 
etc., hasta CON 5) 


El registro O contiene el 
numero del último registro 
ocupado (RE) 


Primer movimiento 
introducido: 

no existen 
registros anteriores 
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y la tasa de interés. Introdu- 
ciendo un movimiento en 
una cierta fecha, el capital 
ya existente ha rendido du- 
rante los días que han pasa- 
do entre el movimiento ante- 
rior y el actual. Por ejemplo, 
suponiendo que la tasa es 
del 12% y que el día 5/10 se 
han ingresado como apertu- 
ra 185 000 ptas, inicialmente 
se tiene: 


Saldo = 185 000 
De fecha = 5/10 


Un ingreso posterior, por 
ejemplo realizado el 20/10 
por 50 000 ptas., lleva el sal- 
do a 235 000. El importe an- 
terior ha rendido durante 20 
— 5 = 15 días, por lo que en 
el 20/10 el interés es 


15 + (185 000 + 
(12/100//365) = 912.3 


Esta cifra se acumula por 
separado como interés de- 
vengado pero no capitaliza- 
do, y sólo se suma al saldo 
en la fase de capitalización, 
por ejemplo a fin de año. El 
nuevo saldo se utilizará para 
el cálculo del interés corres- 
pondiente a partir del día del 
último movimiento, en el 
ejemplo el 20/10. Sin embar- 
go, debe tenerse en cuenta 
que el método es aproxima- 
do, puesto que no tiene en 
cuenta el tiempo necesario 
para que el movimiento sea 
efectivo. Este aspecto ya se 
ha comentado. 

También es importante ob- 
servar que el interés se ac- 
tualiza constantemente a la 
fecha del último movimiento 
efectuado. 

Si se desea actualizarlo a 
una cierta fecha posterior 
deberá hacerse un movi- 
miento ficticio de importe 
nulo en aquella fecha. Esta 
misma operación deberá 
realizarse en el momento de 
la capitalización (cierre de 
las cuentas) periódica. 
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Cierra los ficheros 
y carga el menú 


El interés se calcula 

sobre el último saldo para 
un período de tiempo igual 
a la diferencia entre 

la fecha anterior 

(F1) y la actual (F2) 


Transflere nuevo 
interés y 

nuevos totales 
(registro = Código) 


Al registro RE 


Memoriza 
B5(+) en el 
fichero CON... 
Nueva 
introducción 


O Escribe el nuevo valor 
Actualiza el de RE en el directorio del 
Preión 0 ichero CON... 


NB. El tiempo transcurrido se calcula considerandc meses compuestos por 30 dias 


Impresión del extracto de 
la cuenta (subrutina 8000). 
Después de haber introduci- 
do un cierto número de mo- 
vimientos, con la voz 2 pue- 
de pedirse la impresión del 
extracto de la cuenta. 

Se prevé la elección entre 
dos tipos de extracto: 


m Total: se imprime todo el 
fichero de movimientos 
desde el primero 

m Parcial: sólo se presentan 
los movimientos a partir 
de la última petición de 
extracto de cuenta. 


La segunda opción está en 
la elección de la cuenta. 
Especificando un código se 
tiene la impresión de los mo- 
vimientos de aquella cuenta, 
mientras que introduciendo 
el código 9 se imprimen los 
movimientos de todas las 
cuentas (ver también el 
ejemplo de la pág. 61), en el 
vídeo o en papel. 

También en este caso es 
necesario precisar que el 
extracto de cuenta está ac- 
tualizado a la fecha del últi- 
mo movimiento efectuado. 
Si por ejemplo se ha ingre- 
sado una cierta suma en 
una cuenta en fecha 1/1 y se 
pide un extracto de cuenta 
en fecha posterior, el cálculo 
de los intereses devenga- 
dos da como resultado 0, 
porque la fecha del último 
movimiento es 1/1. Para te- 
ner el cálculo completo de- 
be introducirse un movi- 
miento ficticio de importe 
nulo. 


impresión de la lista de 
bancos y cuenta (subruti- 
na 8500). Permite imprimir la 
lista y el balance (entradas, 
salidas, intereses) de las 
cinco cuentas previstas. La 
lógica es análoga a la utiliza- 
da en la subrutina de aper- 
tura de las cuentas, por lo 


EXTRACTO DE CUENTA 


Esta selección permite imprimir 
sólo los movimientos 

aún no presentados. 

De esta manera no se presentan 
los movimientos 

ya impresos anteriormente 


Si se introduce el 
código Y se presentan los 
extractos de todas las cuentas 


Prepara el bucle 
para todas las cuentas 


Selecciona primera cuenta 


Memoriza TE, TU, TIS 
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que no se ha representado 
el diagrama de flujo. 


Cierre de las cuentas (sub- 
rutina 8700). El cierre de las 
cuentas sólo debe activarse 
al final del período de capi- 
talización. En la mayor parte 
de los casos, el período de 
capitalización coincide con 
el año solar. En cada caso, 
el usuario debe activar el 
cierre de las cuentas en el 
momento preciso. 

Las funciones realizadas en 
la fase de cierre son dos: 


" Capitalización del interés, 
cálculo del saldo y pues- 
ta a O del fichero BNC 

" Puesta a 0 de los ficheros 
de movimientos. 


El primer punto requiere los 
siguientes pasos para cada 
uno de los cinco registros: 


a / Lectura registro en BNC 

b / Cálculo saldo (Entradas 
— Salidas + Interés) 

c/Puesta a O de los cam- 
pos Movimiento, Entra- 
das, Salidas, Interés 

d / Escritura del registro con 
los nuevos valores. 


El segundo punto consiste 
simplemente en poner a O 
los cinco ficheros de movi- 
mientos. 

Este método permite reutili- 
zar para el nuevo año el mis- 
mo soporte físico que el año 
anterior; como alternativa 
pueden evitarse los puntos 
c y d, obteniendo de la má- 
quina sólo el saldo de cierre, 
que constituye el importe del 
primer movimiento de aper- 
tura del año siguiente. En 
este caso, la cassette o el 
diskette de datos antiguo 
puede archivarse, generan- 
do el sistema en un nuevo 
soporte magnético. 

En la versión presentada he- 
mos utilizado el segundo 
método. 
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UR es el valor leído en el 
campo “último registro del 
extracto” del fichero BNC 


Lectura registro JJ 
fichero CON “11” 


RE contiene 
el último registro 
introducido 


Presenta los totales 
y los intereses 
devengados 


Nueva cuenta 


Vuelve al 
menú 


Los listados / Versión Apple !l 


323883 


go 


30 
100 


REM A A A A A 
REM GESTION CUENTAS CORRIENTES 
REM VERSION: DOS 

REM oo 


REM INICIALIZACIONES 

DIM TF(15),TP(20),LC(20),ND(20),C 
X(20),0Y (20) ,DX (20) ,DY(20) 

DIM B$(20),D+(20),VOS$(10),HE$(8), 


ESB), FIS(S) 

REM — CONSTANTES 

BP$ = CHR$ (7): 

NSS = "4; 

ASH = 

PDS = 

BS: = 

ERS = 

MP$ = "MENU. GESTION CUENTAS CORR 
IENTES": 


DS = DHRS (41: 
US$ = CHAS (13): 


Z1ES = "0%: 
GIUS = " ": 
F1$ =- "BNO": 
F24 = "CON": 
sg un 
223 
MI" Le 

ND = 7: 
Ai= 1 

A2 = 31; 
x0.=.52 

YO = 1: 

xC = 3 

YC. 3: 

XS = 1: 

LH = 83 

L1 = "56; 

L2 = 39 


HE$ = “COMANDOS. ESC/RET/CTRL 4, A 
,5,2,E,1,D,R,Y " 
HES(1) = “CTRL Y. AYUDA (<ESPACIO 
> PARA CONTINUAR» " 
HES(2) == "ESC. ANULA TODA LA INTR 
ODUCCION bs 
HES$(3) = "RETURN. ALINEA Y CONVAL 
IDA INTRODUCCION * 
HES(4) = "CTRL TI. PERMITE LA INSE 
RCION DE ESPACIOS" 
HES (5) = "CTRL D. BORRA UN CARACT 
ER " 
HESI(6) = "CTRL OR. VUELVE AL MENU 
PRINCIPAL ae 
HES(7) = "CTRL M,4,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 
HES(8) = "CTRL E. INTRODUCCION EN 
DISCO kJ 
REM CARGA VOCES 
RESTORE 
READ PROG$ 
READ NV: 
MA = NY + 1 
FOR I = 1 TO NV: 
READ YO$(1): 
NEXT 
VOS(MA) = "FIN DE TAREA" 
FOR I = 17015 
READ TF ID 
NEXT I 
REM MAIN 
GOSUB 1300: 
REMO MENU 


IF OPZ = (MA) THEN FOR I = 1 
TO 1000; 


GOSUB 7000 


REM ooo 
REM MOVIMIENTOS 
REM om 
REM CONTROL DE EXISTENCIA 


ABS 


490 


495 


Y = 12: 

GOSUB 11000 

PRINT "INTRODUZCA CODIGO CUENTA": 
PRINT "<0> PARÁ SALIR. 18 
GET C0D$; 

Cop = VAL (COD$): 

PRINT COD 

IF COD = O THEN RETURN 

IF COD < 1 OR COD > 5 THEN 
PRINT EPS: 

GOTO: 415 

REM TOMA DATOS DE BNC 

NF$ =.Fi$3 

LR =L1 

GOSUB 4000: 

REM ABRE FICHERO BC 

NR = COD 

GOSUB 5200: 

REM LEE REGISTRO COD 


CS(1) = LEFTS (AA$,20): 
ES(2) = MIDS (AAS,21,6): 
0$(3) = MIDS (AA$,27,4): 
C$(4) = MIDS (AA$,31,3) 
C$(5) = MIDS (AA$,34,9): 
CS(6) = MIDS (AAS, 43,9): 
C$(7) = MIDS (AA$,52,8): 


C$(B) = RIGHTS (ARAS, 7) 
TA = VAL (0$(3)): 

TE = VAL (C$(5)):2 

TU = VAL (C$(6)):1 

Tl= VAL (C$17)) 

GOSUR 6600: 

REM CIERRA FICHERO BNC 


IF TA = O THEN FRINT BPS: 
GOTO 415 

REM TOMA DATOS DE CON 
NFS = F2$ + STR$ (COD): 
LR = 12 

GOSUB 6000: 

REM_ ABRE FICHERO CON 


NR =0 
GOSUR 6200: 
REM LEE REGISTRO O 


RE = VAL (AAS); 

1F RE = 0 THEN 555 
NR = RE; 

GOSUB: 6200: 

REM LEE REGISTRO RE 


DDG = LEFTS (AA5,2): 
MMS = MIDS (AA8,3, 2): 
FIS = RIGHTS (A4%,6) 


GOSUE 6600: 
REM CIERRA FICHERO CON 


REM — ENTRADA MOVIMIENTOS 
BS(1) = CS(1)2 

B$(2) = C$(2): 

Bs(4) = SL$ 

GOSUB 2000; 

REM MASCARA 


GOSUE 3000: 
REM DATA ENTRY 


IF FS = 6 THEN 510 

IF FS = 7 THEN RETURN 

IF RE = 0 THEN 675 

REM CALCULA DIAS 

DD = VAL (DD$): 

IF DD < 10 THEN DDG == 2E$ + 
STR$ (DD) 

BB = VAL (B$(3)): 

IF BB< 10 THEN Bs(3) = ZE$ 
+ —STR$ (BB) 

Di = VAL (MMS + DD$): 

D2 = VAL (B$(5) + B$(3)) 
D3 = D2 - Di: 

1F D3 < O THEN PRINT BPS: 
GOTO 560 

DMbh = STR$ (D3); 

IF LEN (DM3$) = 4 THEN 640 
FOR JJ = 1 TO 4 - LEN (DM8): 
DM$ = "0" + DI6: 

NEXT 39 
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640 
$45 


690 


695 


700 
705 


710 
715 
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MM = VAL ( LEFTS (DM$,2)): 

1F MM > 12 THEN MM = MM -— 88 

DD = VAL ( RIGHTS (DM$,2)): 

IF DD > 30 THEN DD = DD - 70 

DD = DD + MM k 30 

REM CALCULA INTERESES 

IF TE - TU< =-0 THEN PRINT BP$ 


G070 560 
TI = "INT ((TE - TU) k (TA 
/ 100) / 365 £ DD + TI) 
REM ACTUALIZA BNC 
IF VAL (B$(6)) > 0 THEN TE 
= TE + VAL (B$(6)): 
VB = 5: 
1 = TE; 
va = 9: 
GOSUB 14000: 
GOTO 695 
TU = TU - VAL (B5(6)):2 
VB = 6: 
Va = 9: 
1 = TU: 
GOSUB 14000 
VB = 73 
1 =Tl; 
VQ = 8: 
GOSUB 14000 
ARAS = "" 
FOR L = 1 70 8: 
ARAS = ARAS + OSIL): 
NEXT L 
NFS = Fis: 
LR =L1 
G0SUB 6000: 


REM ABRE FICHERO BNC 


NR = COD 
GOSUB £400: 
REM ACTUALIZA REGISTRO COD 


GOSUB 6600: 
REM CIERRA FICHERO BNC 


REM MEMDRIZA MOVIMIENTO 
RE = RE + 1: 

AA$ = STR$ (RE) 

NFS = F2% + STR$ (COD): 
LR = L2 

GOSUE 6000: 

REM ABRE FICHERO CON 


NR =0 
GOSUB 6400: 
REM ACTUALIZA REGISTRO O 


AAS = BS(3) + BS(S) + BS(6) 
+ B6(7) + FIS 

NR = RE 

GOSUB 6400: 

REM ESCRIBE REGISTRO RE 

GOSUB 6600: á 

REM CIERRA FICHERO CON 


GOTO 510 
RE 
REM APERTURA CUENTAS 


REA nm 


60SUB 6000: 
REM ABRE FICHERO BNC 


K=1 
FOR NR = 1705 
GOSUB 6200: 
REM LEE REGISTRO NR 


Cs11) = LEFTS (AAS,20): 
012) = MID$ (AR$,21,6) 
C$(3) = MIOS (AM$,27,4): 
C$(4) = RIGHTS (AA$,36) 
BS (K) = C$(1): 


BSIK + 1) =0$(2): 
BS(K + 2) = 0513): 
FIS(NR) = C$(4) 
K=K+*3 
NEXT NR 
FOR J = 1 TO 15 
IF LEFTS (BS(D),1) < > BL$ 
OR RIGHTS (B$(J),1) < 
> BL$ THEN TP(J) = 5 
NEXT J 
GOSUB 2000: 


970 


1350 
1360 


1370 
1380 
1390 
1400 
1410 
1420 


1430 
1440 
1450 


1460 
1470 


1480 


REM MASCARA 


GOSUB 3000; 
REM DATA ENTRY 


IF FS = 6 THEN 850 
IF FS = 7 THEN GOSUB 6600: 
RETURN 
FOR NR = 1 TOS 
NN = 3 4 (NR - 1) +1 
C$(1) = BS(NN) 
C$(2) = BSINN + 1) 
C$(3) = BSINN + 2) 
C$(4) = FIS(NR) 
ARS ="" 
FOR L = 1704 
ARAS = ARAS + OSIL) 
NEXT L 
GOSUB 6400: 
REM ESCRIBE REGISTRO 


PRINT "E.G.S."; TAB( 20); "EDICION 
ES FORUM,S.A." 
INVERSE : 
X = XO: 
Y =3; 
GOSUB 11000: 
PRINT MPS; 
NORMAL 
FOR 1 = MI TO MA 
Y = 14 9Z + YC: 
X = XC: 
GOSUB 11000 
II = 1 
IF II = (MA) THEN 11 = 0 
PRINT 113"- "¿VOS (1) 
NEXT 
TI = MI 
Y = 1% 52'+ YC: 
X= XS: 
GOSUE 11000 
SP. = YC. 1 
PRINT "->%; 
GET 0PZ$; 
OPZ = VAL (0PZ$): 
IF 0P2% = US$ THEN 1530 
IF OPZ > NV THEN 1450 
IF OPZ% = ZE% THEN X = XS: 
GOSUB 11000: 
PRINT— SPC( SP)3: 
I = MA: 
GOTO 1420 
IF ASC (0PZ%) > 48 AND ASC (0PZ 
$) < 58 THEN X = XS: 
GOSUB 11000: 
PRINT— SPC( SP);3 
1 = 0PZ: 
GOTO 1420 
IF 0P75 < > GIUS THEN 1450 
X = XS: 
GOSUB 11000: 
PRINT — SPC( SP); 
I=1+1: 
IF 1 > (MA) THEN 1410 
GOTO 1420 
X= XC3 
Y = 1348 + YC 
II = 1: 
IF 1 > NV THEN II = O 
INVERSE 
PRINT 11;"- ";VO$(I) 


EUA -rtamiaiatonto cami ps pactó 
REM PRESENTA MASCARA 
REM: oaercinearoceorcmciaer o 
HOME 
REM LINEAS RESERVADAS 
INVERSE 
SP = 33 - LEN (VO$(0PZ)) 
SPs = "" 
IF SP = O THEN 2100 
FOR Y = 1 TO SP: 

SP$ = SP$ + BL$: 
NEXT 
LP = LEN (PROG$) 
SI = INT ((40 - LP) / 2): 
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DE = 40 - LP - SI 


s15 = 0: 
DES 0. 
FOR J = 1 TO SI 


SIS = SIS + BLS 
NEXT 
FOR J = 1 TO DE 


DES = DES + BL$ 


NORMAL. : 


PRINT "E.G.S."; TAB( 20); "EDICION 


ES FORUM,S.A." 

PRINT SI$ + PROG$ + DES;: 
INVERSE 

NORMAL; 

PRINT "VOZ ";0PZ;3 
INVERSE +: 

PRINT — SPC( 34)5 

PRINT— SPC( 6);" "5VD$(0PZ) 
+ SP$; 

PRINT— SPC( 40)33 


NORMAL. : 
PRINT HES;: 


INVERSE 


NORMAL. 


REM MASCARA 


FOR Y = 1 TO NUC 


as = 

X= DX (Y): 

Y = DY(J): 

GOSUB 11000: 

INVERSE : 

PRINT D$ (3) 

NORMAL 

1F TP(J) <-> 5 AND TP(J) 

< > 4 THEN 2330 

x= CX(J):3 

Y = CY(J): 

G0SUB 11000 

PRINT B$(J) 

GOTO 2500 

Ní = LC(J): 

N2 = ND(J): 

IF TP(J) = 1 0R TP) =2 

THEN C$ = NS$: 

GOTO 2350 

C$ = AS$ 

FOR 1 = 1 TO Ni - N2 - 1: 
A$6 = A% + 06: 

NEXT 1 

IF N2 = 0 THEN A$ = As + Cd: 

GOTO 2390 

Ab = AS + PDS 

FOR I = 1 TO N2: 
AS = As + 7Eb: 

NEXT 1 

Xx = CX(J): 

Y = CY): 

GOSUB 11000 

PRINT AS 

BS) = 

FOR K = 1 TO Ni - N2 - 1 
BS(J) = B$(J) + BLS 

NEXT K 

IF N2 = 0 THEN B$(J) = B$(J) 

+ BL$: 

GOTO 2500 

BS(J) = BS(J) + PDó 

FOR K = 1 TO N2 
B$(J) = B$(J) + BLS 


REM == 


Xx = CX(NC) 2 
Y = CY (NC) 
cc = 1 


GOSUB 3240 


IF FS = O THEN 3100 
IF FS > 4 THEN 3210 
GOTO 3120 
Y=J+tl: 
IF J > NUC THEN 3030 


GOTO 3040 


ON FS G0TO 3130,3150,3170,3190 
IF 3 > 1 THEN JY =J- 4: 

GOTO 3040 

PRINT BP$;: 

FS = 0: 

Y = NUC: 

G0TO 3040 


3150 
3160 


3170 


3180 


3190 


IF J < NUC THEN J=J+ 1: 
GOTO 3040 

PRINT BF$;; 

FS = 0; 

GOTO 3030 . 

IF CC < LO(J) THEN S = 1: 
CC. = CC + 12 

X=X +1 

GOSUB 11000: 

SOTO 3060 

PRINT BP4: 

FS = 0: 

GOTO 3100 

IF CC >1THNS= - 1: 
CC." 2-4: 

XX - 4: 

GOSUB 11000: 

GOTO 3060 

PRINT BP$;: 

FS = 0; 

GOTO 3040 

IF FS > 8 THEN FS = 0: 
GOTO 3060 

IF FS = 8 THEN FS = 0: 
GOTO 3100 

RETURN 


REA 


REM LECTURA DE UN CAMPO 
REM ss 
FS=0 
IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 8985: 
RETURN 
JF MIDS (BS(NC),0C,1) = PDS 
THEN X = X + S: 
CC = CC +S 
G0SuUB 11000 
GET AS: 
IF AS = "" THEN 3320 
CA = ASC (A$): 
IF CA > A2 THEN 3380 
FOR I = 1 TO 15 
IF TF(1) = (CA) THEN FS 
= 1: 
GOSUB 3430: 
RETURN 
NEXT 1 
GOTO 3320 
IF -TP(NC) < > 1 THEN 3440 
1F CA = 45 OR CA = 46 0R (CA 
> = 48 ANDCA< = 57) THEN 341 


o 

PRINT BPSs;: 

GOTO 3320 

IF CA < > 46 THEN 3440 
GOSUB 4270 

IF SWP-= 1 THEN 3400 

S=1: 

G0SUB 3520 

IF CC = LC(NC) THEN RETURN 
CC = CC + t: 


REM TRASFERENCIA AL BUFFER 
A neta UA 
IF CC = 1 THEN SNS = ""; 
GOTO 3570 

SN$ = LEFTS (BS (NC),CC = 1) 
IF CC = LC(NC) THEN DS$ = "; 
GOTO 3590 

N = LC(NC) - CC: 

DS$ = RIGHTS (B$(NC),N)> 

BS (NC) = SNS + A$ + DS$ 
PRINT AS: 


IF FS > = 5 THEN 3690 

IF FS: = 5 AND TP(NC) = 1 THEN 
GOSUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 
RETURN 

IF FS < 8 THEN RETURN 

ON FS - 9 G0SUB:3740,3910 
RETURN 


REM INSERCION 

REM 

JF CC = LC(NC) THEN PRINT BP9: 
RETURN 
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TF.CC = 1 THEN SNS 2 3 
GOTO 3800 

SN$ =  LEFTS (BS(NC),CC — 1) 
N = LC(NC) - CC + 1: 

DS$ <= RIGHTS (B$(NC),N) 

CS = Bs 

AS = SN$ + 0$ + DS$ 

BS(NC) = LEFTS (A$,LC(NC)) 


PRINT BS(NC)5 
COS 
IF RIGHTS (BS(NC)>,1) = PD$ 


1F TFINC) < > 1 THEN 3960 
IF —MIDS (B$(NC),2,1) = PD$ 
AND CL = 1 THEN RETURN 
IF COX 1 THEN/ PRINT BP: 
RETURN 

1F 00 = LO(NDI THEN DS$ = "%:; 
GOTO 4000 

N = LC (NO) = 000: 

DS$ = RIGHTS (BS(NC),N) 

IF CC" 1: THEN SNS = “": 
GOTO 4010 

SN$ = LEFTS (BS(NC),CC — 1) 
1F TPINC) = 1 OR TP(NC) = 2 
THEN C$ = NS$: 

GOTO 4030 

C$ = ASS 

B$(NC) = SN$ + DSS + C$ 

XX = Xi 

YY = Y 

X = CXINC): 

Y = CY(NC): 

60SUB 11000 

X= 

Y = VW 

PRINT "BS (NC): 


Ss .1 
RELURN 


a 
REM ALINEADOS 
REM ===> 
IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) - CC + 1 
IF CC = 1 THEN BS6(1NC) = "“: 
GOTO'4150 
BS(NC) = LEFT$ (B$(NC),CC 
A 
IF TP(NC) = 1 OR TPINC) = 2 
THEN' 4200 
FOR I = 1 TO Ni 

BS (NC) = BS(NC) + BLS 
NEXT 1 
GOTO 4240 
FOR 1 = 1 TO Ni 

BS (NC) = BL$ + BS(NC) 
NEXT 1 
IF. RIGHTS (B$(NC),1).= PDS 


THEN BS(NC) = BL$ + LEFTS (BSIN 


C),LO(NC) 1) 
X == CX(NC): 

Y = CY (NC)» 
GOSUB 11000 
PRINT BS (NC): 
RETURN 

A 
REM CTRL PUNTO 


SP = 0 


IF CC = 1 OR CC = LC(NC) THEN SWF 


=1: 

RETURN 

FOR I = 1 TO LC(NC)> 
1F-— MIDS (B$(NC)+,1,1) = PD$ 
THEN 1 = LC(NC): 


PRINT DS; "OPEN"¡NF$5",L"¿LR 


+02 

PRINT D$ 

RETURN 

REM —=—eee=oomomm 
REM LECTURA REGISTRO 


INPUT ARAS 


REM ESCRITURA REGISTRO 
REN — 
PRINT DS 

PRINT DS; "WRITE"¿NFS;",R"¿NR 
PRINT CHR$ (34) + A05 


PRINT D$ 


7090 


71009 
7110 


7120 


7130 
7140 


7150 


REM — LECTURA DE LOS DATOS 


FOR l.= 1 TO NV + 15: 
READ DAb: 
NEXT 1 
14 =0 
IF LM - O THEN READ NUC: 
FOR 1 = 1 TO NV - 1: 
READ DA: 
NEXT l: 
GOTO 7150 
FOR 1 = 1 TO LM: 
READ. DA: 
LV = LV + DA + DA £ ND: 
NEXT 1 
READ NUC 
IF NUC = O THEN 7190 
IF 1 < NV THEN READ DA: 
L= + Li 
GOTO 7120 
IF LY = O THEN 7150 
FOR 1 = 1 TO LV: 
READ DAS: 
NEXT 1: 
REM LEE EN VACIO 


FOR I = 1 TO NUC: 
READ D$(I): 
NEXT 1: 
REM. LEE DESCRIPCIONES 


FOR 1 = 1 TO NUC 


READ TP(I),LO(I),ND(T) ,DX (1), D 


Y(D),CX(1),CY (1) 
NEXT 1 
RETURN 
A ries? 
REM EXTRACTO CUENTA 
ROM” 
REM MENU 
HOME 
X=1; 
Y = 10: 
GOSUB 11000 
PRINT "1) IMPRIME TOTAL" 
PRINT 
PRINT "2) IMPRIME PARCIAL" 
PRINT 
PRINT "3) VUELVE AL MENU" 
x= 1: 
Y = 20; 
GOSUB 11000 
PRINT "ELIJA. "y: 
GET SC$: 
PRINT SCS: 
SC = VAL (SC4) 


IF SC < 1 DR SC > 3 THEN FPRINT B 


Ps: 
G0TO 8025 
IF SC = 3 THEN RETURN 


l: 
Y =.12: 
GOSUB 11000 


FPRINT "INTRODUZCA CODIGO CUENTA": 


8125 


8130 


8135 
8140 
8145 
8150 
8160 
s165 
8170 


8175 


8180 


8185 


8190 


8195 


PRINT "<9> TODOS <0> MENU. "; 
GET CODS; 
COD = VAL (COD$)= 
PRINT CODS 
IF COD = 0 THEN 8025 
IF COD < 1 OR (COD > S AND COD 
<-> 9) THEN PRINT BP$: 
GOTO 8080 
HOME 
X= 1: 
Y = 10: 
GOSUB 11000 
PRINT "1) EN IMPRESORA": 
PRINT : 
PRINT "2) EN VIDEO" 
X= 1: 
Y = 20: 
GOSUB 11000 
PRINT "ELIJA. ";: 
GET SS$: 
PRINT SS$: 
Ss = VAL (5S$) 
1F SS < 1 0R SS > 2 THEN PRINT B 
PS: 
GOTO B110 
IF COD = 9 THEN Ni = 1t: 
N2 = 5: 
G0TO 8150 
Ni = COD: 
N2 = COD 
REM BUCLE SOBRE BNC 
FOR 11 = Ni TO N2 
NFS == F163 
LR = Li 
G0OSUB 6000: 
REM_ ABRE FICHERO BNC 


NR = 11 
GOSUB £200: 
REM_ LEE REGISTRO 11 


CS(1) = LEFTS (AAS,20)5 

0$(2) = MIDS (MAS, 21,6): 
C$(3) = MIDS (AA8,27,4): 
C$(4) = MIDS (AAM8, 31,3) 

C$15) = MIDS (AA5,34,9): 
C$(6) = MIDS (AG, 43,9): 
C$(7) = MIDS (AA$,52,9): 
C$(8) = RIGHTé (AA$,7) 


TE = VAL (C0$(5)): 

TU = VAL (0$(6)): 

VIS = C$(7): 

UR = VAL (0$(4)) 

GOSUB 6600: 

REM CIERRA FICHERO BNC 


TF VAL (C8(3)) = 0 OR (TE 
= 0 AND TU = 0) THEN 8475 
NFS = F24 + STR$ (11): 

LR = L2 

GOSUB 6000: 

REM_ ABRE FICHERO CON 


NR =0 
GOSUB 46200: 
REM_. LEE REGISTRO O 


RE = VAL (AA$) 

IF UR > RE AND SC = 2 THEN 
GOSUB 6600: 

GOTO 8475 

REM IMPRIME 

1F-SS = 1 THEN PRINT D$; "PRIM 
" 


HOME 

INVERSE : 

PRINT “EXTRACTO CUENTA. *;: 

NORMAL. ; 

PRINT SPO( 2)50$(1): 

INVERSE 

PRINT : 

PRINT 

PRINT "FECHA IMPORTE 
MOTIVO E 

NORMAL. 

PRINT 

POKE 34,5: 

REM. PROTEGE CABECERA 


1F.5C.= 1 THEN Mi = 1: 
GOTO 8310 

MI = UR: 

IF UR = 0 TREN M1 = 1 
REM. BUCLE SOBRE CON 

FOR 3J = Mi TO RE 


NR = Ji 
GOSUB $200: 
REM LEE REGISTRO JJ 


8325 


8395 
8400 
8405 
8410 
8415 
8420 


8425 


8430 
8435 


8440 


2445 


8450 
8455 


8450 


8465 


8470 
8475 
8480 
8495 
8500 
8505 
8510 
8515 
8520 


8s25 


83530 


8535 


8540 


8545 


8550 


8555 


8560 


DD = VAL ( LEFTS (A4$,2)): 
= VAL ( MIDS (AA$,3,2)) 


MOS = MIDS (AAS,5,3): 
CUS = MIDS (AAS,13,20) 
1F DD = O THEN 8350 
PRINT DD; SL 4; MM 
PRINT  TAB( 8);M08; 
PRINT TAB( 19);CUS 

NEXT JJ 

GOSUB 6600: 

REM_ CIERRA FICHERO CON 


IF DD = 0 THEN 8470 
TT = TE - TU: 

TTS = STRS (TT): 
LT = LEN (TTS) 

IF LT = 9 THEN 8380 
FOR K = 1 TO 9 - LT: 


PRINT "SALDO. "5: 

PRINT— TAB( 22); TT8 

PRINT "INTERESES DEVENGADOS. ”; 
BLS + TIS 


TT = TT + VAL (TIS): 
TTS = STR$ (TT) 
LT = LEN (TTS)< 
IF LT = 9 THEN 9415 
FOR K = 1 T0 9 - LT: 
TTS = BLG + TTS: 
NEXT K 
PRINT "TOTAL. “: 
PRINT  TAB( 22); TY8 
IF SS = 2 THEN GET R$ 
FOR K = 1 TO 5: 
PRINT : 
NEXT K 
IF SC < > 2 THEN 8470 
7 RE + 1: 
VB: = 43 
VQ = 3: 
GOSUB 14000 
NFS = Fi6: 
LR = Li: 
NR = 11 
GOSUB 6000: 
REM ABRE FICHERO BNC 


ARAS = "" 
FOR L = 1 70 8: 
BAS = AAS + CSIL) 
NEXT L 
GOSUB 6400: 
REM ACTUALIZA REGISTRO 11 


GOSUB 6600: 
REM CIERRA FICHERO BNC 


POKE 34,0 

NEXT TI 

PRINT DS¿"PRHO" 

RETURN 

REMO >rroricmricr 

REM IMPRIME LISTA 
enseres sera 

HOME 

X= 1: 

Y. 121 

GOSUB 11000 

PRINT "INTRODUZCA CODIGO CUENTA": 
PRINT "<0> PARA SALIR . “a 
GET COD$: 

PRINT COD$ 

COD = VAL (CODES): 

JF COD = O THEN RETURN 
IF COD < 1 OR COD > S THEN 
PRINT BP$: 

GOTO 8515 

NFS = Fió: 

LR = Li; 

NR = COD 

GOSUB 6000: 

REM ABRE FICHERO BNC 


GOSUB 5200: 
REM LEE REGISTRO COD 


CS(1) = LEFTS (AAS,20): 

C$(2) = MIDS (AMAS, 21,6): 
CS(3) = MIDS (4A5,27,4): 
C$(4) = MIDS (AAS,31,3) 
C$(S) = MIDS (A45,34,9): 
C$(6) = MIDS (AAS,43,9): 
0$(7) = MIDS (AAS,52,8): 
0$18) = RIGHTS (AA$.7) 


1811 


8565 


8780 


8785 
8795 


1812 


IF VAL (0$(3)) = 0 THEN PRINT B 
Ps: 

GOSUB 5500: 

6070 8515 

HOME 

X= 1: 

Y = 10: 

GOSUB 11000 

PRINT 1) EN VIDEO”: 

PRINT "2) EN IMPRESORA" 
X= 15 

Y = 20: 

G0SUB 11000 

PRINT "ELIJA. "3: 

GET SS4: 

PRINT SS$: 

S5 = VAL (55$) 

IFSS<X< >1ANDSS< >2 
THEN 6570 

IF SS = 2 THEN PRINT DS; "PRHL" 
HOME 

PRINT CS(1);" "; 

INVERSE : 


: PRINT "CUENTA. "5: 


NORMAL. 

PRINT " "¡C$(2) 
PRINT + 

PRINT 


INVERSE :; 

PRINT "ENTRADAS =";: 
NORMAL: 

PRINT * "¡C0$(5):3 


PRINT “SALIDAS ="3: 
NORMAL. 
PRINT " "¿0S(6): 
PRINT : 
PRINT 
INVERSE : 
PRINT "TASA INTERES. "5: 
NORMAL 
PRINT " "30$(3)13% 2: 
PRINT 
INVERSE : 
PRINT “INTERES DEVENGADO =";: 
NORMAL 
PRINT * "¡C$(7) 
1F 58 = 1 THEN PRINT : 
GET R$: 
PRINT 
FOR K = 1 TO S: 
PRINT + 
NEXT K 
PRINT D$; "PRO" 
RETURN 


REM 


REM CIERRE CUENTAS 

A 

HOME 

X= 15 

Y» 12: 

G0SUB 11000 

PRINT "INTRODUZCA CODIGO CUENTA"; 
PRINT "<0> PARA SALIR.” E 
GET CODS: 

PRINT COD+$ 

COD = VAL (C0DS): 

IF COD = 0 THEN (RETURN 

IF COD < 1 0R 00D > S THEN 
PRINT BP: 

GOTO 9715 

REM CALCULO SALDO 

NFS = Fig; 

LR = Ll 

NR = COD 

G0SUB 6000: 

REM ABRE FICHERO BNC 


GOSUB 6200: 
REM LEE REGISTRO COD 


C$(1) = LEFTS (AA$,20): 
C$(2) = MIDS (AA$,21,6): 


C$(3) = MIDS (AA5,27,4): 
CS (4) = MIDS (AA$,31,3) 
0$(5) = MIDS (AA$,34,9): 
C$(6) = MIDA (AN$,93,9): 
2$(7) =MIDS (ANS, 52,9): 


C$(8) = RIGHTS (AA$,7) 

IF VAL (0$(3)) = 0 0R ( VAL (C$t 
51) = 0 AND VAL (C$(6)) « 0) 
THEN PRINT BP: 

GOSUB 5500: 

GOTO 2715 

SA = VAL (C$(5)) — VAL (08(6)) 
+ VAL (0$(7)) 

REM IMPRIME SALDO 

HOME 


8930 


8935 


8940 


89453 


8950 


8755 


X= 12 

Y = 10: 

GOSUB 11000 

PRINT "1) EN VIDEO": 
PRINT "2) EN IMPRESORA" 
x=1: 

Y = 20: 

G0SUB 11000 

PRINT "ELIJA. "js 

GET SS$: 

PRINT SS$: 

SS = VAL (5S$) 

IF SS:< > 1IANDSS< >2 
THEN 8795 

1F SS = 2 THEN PRINT DS;“PR1" 
HOME 


INVERSE 5 

PRINT "BANCO. "3: 

NORMAL. 

PRINT— SPC( 2);C$(1): 
PRINT 

PRINT "SALDO DE CIERRE.";SA 


FOR K = 1 710.5: 
PRINT ; 
NEXT K 
IF SS = 1 THEN GET R$: 
PRINT 
PRINT DS; "PRHO" 
REM PUESTA AO DE FICHEROS 
HOME 
X= 1d: 
Y = 123 
GOSUB 11000 
PRINT "NUEVO DISCO 2 (S/N) ";: 
GET R$: 
PRINT Rs 
IF RA < > "N" THEN  GOSUB 56600: 
RETURN 
2=0 
VB = 43 
VQ = 3; 
S0SUB 14000 
VB = 5; » 
VO = 9: 
G0SUB 14000 
VB = 6: 
va = 9: 
GOSUB 14000 
VB 27: 
VO = 8: 
GOSUB 14000 
ARAS = 
FOR L = 1 T0 8: 
ARAS = ARAS + CSIL): 
NEXT L 
GOSUB 5400: 
REM PONE A 0 REGISTRO COD 


G0SUB 66090: 
REM CIERRA FICHERO ENC 


NFS = F2% + CODS: 

LR =L2 

NR =0 

GOSUB 6000: 

REM_ ABRE FICHERO CON 


GOSUB 6200; 
REM LEE REGISTRO O 


RE = VAL (AAS) 
As. m 
FORK =- 1 TO' LR: 
AAS = ARS + BL$: 
NEXT K 
FOR NR = O TO RE 
GOSUB 6400: 
REM PONE A O REGISTRO NR 


NEXT NR 
GOSUB 6600: 
REM CIERRA FICHERO CON 


RETURN 

REM n= 

REM DATOS 

REM === 

DATA "GESTION CUENTA CORRIENTE" 
DATA 6 

DATA "MOVIMIENTOS (INGRESOS Y RETI 
RADAS)", "IMPRESION EXTRACTO CUENT 
A", "APERTURA CUENTAS" 

DATA "CIERRE CUENTAS", "IMPRESION 
LISTA BANCOS Y CUENTAS", "GENERACI 
ON SISTEMA" 

DATA 23,26,19,1,5,27,18,13,25,9,4 
,0,0,0,0 

DATA 7,0,15,0,0,0 

DATA "RANCO", "CUENTA", "FECHA (DD/ 


MAI IMPORTE", MOTIVO" 

10100 DATA 4,20,0,1,7,20,7 

10110 DATA 4,6,0,1,9,20,9 

10120 DATA 0,1,19,20, 14 

10130 DATA 4,1,0,1,1,22,14 

10140 DATA 1,2,0,1,1,23, 14 

10150 DATA 1,8,0,1,16,20,16 

10160 DATA 3,20,0,1,20,20,29 

10170 DATA "BANCO", “CUENTA”, "INTERES", , 


mor sm””s 


TONO DATA 3,20,0,137,1,10 
10190 DATA 3,6,0,23,7,23,10 
10200" DATA 1,4,1,31,7,33, 10 


10210 DATA 3,20,0,1,1,1,12 
10220 DATA 3,6,0.1,1,23, 12 
10230 DATA 1,4,1,1,1,33,12 
10240 DATA 3,20,0,1,1,1.14 
10250 DATA 3,6,0,1,1,23,14 
10250. DATA-1,4,1,1,1,3314 
10270 DATA 3,20,0,1,1,1,16 
10280DATA: EA BRE 
10290 DATA 1,4,1,1,1,33, 16 
10300 DATA -3,20,0,1,1,1,18 
10310 DATA 3,6,0,1,1,23,18 
10320: DATA 1,4,1,1,1,33, 18 
LL000 REM nana ci 
PLOLO REM POSICIONA CURSOR 
NDA 
11030 HTAB-Xe 

YTAB..Y 
11040 RETURN 
12000. REM === === 
12010 REM" GENERACION SISTEMA 
a 
12030 HOME 
12040 FLASH 
12050 X= 14: 

Y 123 

60SUB' 11000 
12060 PRINT_ "GENERACION EN CURSO: 
12070 NORMAL 
120B9.1.3..L2 

Yo 231 

GOSUB 11000 


12090" INPUT "CONTINUO? (SI/NO) "¿R$ 
12100 JE LEFTS. (EI idas 
THEN" RETURN 
12110. GOSUB,.110003 
PRINT"-SPC(-39) 
12111 4604. =.: 
FOR-T-=-1-TO"65:7 
ABS =,AAS + BLó: 
NEXT-T 
12112,NES,.5..BNC.!s 
LR= 66: 
GOSUB.£000 
12113 FOR NR == 1 705: 
GOSUB 5400; 
NEXT NR: 
GOSUB 5600 
12229 'GOSUB 11000 
12230 INPUT “NUMERO DE MOVIMIENTOS 2 " 
+= NMOV: 
12240 IF NMOY > 100 THEN. PRINT EPS; 
GOTO 12220 


12250 GOSUB-11000+ 
PRINT,_SPCL 3 

12250-UR == 12 

12270. AR$5 = "" 


9) 


12280 FORK := 1 TO ER 


12290 BAS = MAS 
12300NEXT- K 
12310 FOR J = 1 70 


+ Bs 


5 


12320 NFG= E264: STRS 0d) 
32330 GOSUB 6000: 

REM ABRE-FTCHERO 2 
12340 FOR=NR==-:0- 70: MOV: 
12350 GOSUR..£404: 

REM" ESCRIBE REGISTROS 

12360 NEXT NR 
12 GOSUB,.S600: 


REM CIERRA FICHERO -2 


12386 NEXT J 
12390.SE£TURN 


13000" REM" ==... 
13010 REM AYUDA 
13020 "REM === 
13040. 1NVERSE 
13050 =1 
1050 1 
Yoma ¿ 
£OSUB. 11000 «e 
13070 “PRINT-HES(KI7 
1080 Ba  PEEK ( - 16384) 
13090 POKE-—= 16358,0 
oo JE.B 229 THEN 13080 
143110 TF >B.4-Y-150-THEN 13080. 
SIM A 
1F-K- 5 LH THEN 13140 
134530. SOTO. 135000 
ESO O 


A 

GOSUB-11000 
1150 PRINT OHES; 
13160-.NORMAL 
13170 X = £f: 

WANV 
13190 BIEN 
14000 Ln 


14040.1F LEN alo 
Mts 

RETURN 

: LEN 2015) 


LLO 


Jl 


241144, BEFURA 


= VO THEN TS(4B) 


SO THEN ALS 


Ma 


1 5 
AD = AD + BUS 


A E 


RELACION DE LAS VARIABLES - VERSION APPLE 


buffers de introducción 
coordenadas de campos 
buffer de descripciones 
coordenadas de descripciones 
matriz mensajes de ayuda 
matriz longitudes de 
campos de introducción 
decimales en los campos 
matriz códigos de comando 
matriz tipos de campos de 
introducción 

vores del menú principal 
código ASCII tecla pulsada 
límites para CA 

carácter entrado por teclado 
contador de caracteres 
código cuenta seleccionada 


ERS$ 
USS 
F15, F25 
NV 
PROGS$ 
NFS 

NR 


RE 
DDS$, MM$ 
DD 


cadena indicación de error 
RETURN 

nombre de los ficheros 
número voces menú principal 
cabecera programa 

nombre del fichero considerado 
número del registro 
considerado 

último registro escrito en los 
ficheros movimientos 

fecha último movimiento 

días transcurridos 

último registro escrito 

fecha 

movimiento 

motivo 

longitud records prevista 


1813 


PA A A SN 
Los listados / Versión Philips VG 8010 


10 A A ee 
13 REM CUENTAS CORRIENTES 
15 REM VERSION MSX 

18 REMO A 


20 MAXFILES=2 

21 CLEAR 8000 

22 DEFINT A-S,U-W 

23 DEFDBL TZ 

27 Wis="PREDISPONGA EL GRABADOR PULSANDO": W24="PLAY Y RECORD": WI8="PREPARE LA CI 
NTA- Y PULSE” 

29 W4+="ESPERAR":WS$="ESTA PREPARADO? (Pulse S para conti- nuar.Pulse N para 
volver al menu)” 

40 DIM TF(15).TF'(20),LC(20),ND(20),CX(20),CY(20),DX (20), DY (20) 

50-DIM B4:(20),D5420»/V0$(10140$18)5F1$(2)5 BES (2) ARAS (100) 

55 FEY OFF:KEY 1.CHR$(15): KEY 2.CHRS(16): KEY 3,CHR$(17): KEY 4,CHR$(19): KEY 5, CHR 
$ (20): WIDTH-40 

60 REM COSTANTI 

65 ALF1FA2=31:BP$="DALZODFE"INS$="=":1AS$="="3PD$=". “iBLS=" "¡¿ERS="E":MP+=" MENU 
"¡SL9="/" 

7O0-FS$=0HRS (1) ACHRAE (37) 

72 F19=""; FOR 1=0 TO 39:F1$=F14+FS$:NEXT I 

73 06=5TRING$ 133,454) 

80 S2=2:MI=1 

90 X0=5:Y0=1:7XC=3:YC0=5:X951:LH=8:L:1=66:L2=39:ND=7 

100 US$=CHR$ (13) : 7E$=CHR$ (48) : GIUS=CHR$ (32) 

110 HE$="CTRL Y (AYUDA)” 

115 Hi$="E.G.S. Ediciones Forum,S.A.” 

120 "REM. CARGA VOCES 

130 RESTORE 

190. READ PROGS% 

150 READ NV 

160 FOR I=1 TO: NY: READ: YO$ (1): NEXT 

170 MA=NV+1 

180. VOS(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ: TE CI) 

210 NEXT I 

220 REM MAIN 

230 GOSUB 1300:REM MENU 

240 IF OFZ=MA"” THEN FOR I=1 TO 1000: NEXT:CLS: END 

250 LM=0PZ-1: IF OP2=1 OR 0P2=3 THEN GOSUB 7000 

260' ON OPZ 'GOSUB 400, 38000,800,8700,8500, 12000 

290 GOTO 230 


400 REM — E 
403 REM MOVIMIENTO: 
GIRE 


4235 GOSUB $000 

AO IF R$="N" OR R%="n" THEN RETURN 

940 IF RE<100 THEN 485 

450 OLS:X=5: Y=10:G60SUB 11000: PRINT"EL FICHERO MOVIMIENTOS ESTA AGOTADO": FOR I=1 

TO 2000:NEXT ¿RETURN 

485 OS (1)=LEFTS (BES, 20): 08 (2)=MIDS (BES, 21,6): 04 (3)=MIDS (BB€,27, 47:04 (4)=M1D% (EE+ 
131,3) 

490 C£(S)=MIDS (BB$,34,9) 1:04 (6) =MID$(BB9,43,9): 0% (7)=MI1D3 (BB+,52,8): 06 (B)=RIGHTS( 

BE$,7) 

495 TA=VAL(C$(3))1: TE=VAL (OS (5) ) 3 TUSVAL(CS$(6))3 TISVAL (04 (7)) 

500 IF TA=0 THEN PLAY BP+:CLS:X=3:GOSUB 11000: PRINT "ERROR: INTERES IGUAL A CER 
O": FOR 1=1 TO 1000:NEXT TI: RETURN 

533 H=RE 

555 DD$=LEFTS CAAF (H), 2) MMSFMIDS (CAAF (3,2) 1 FI9=RIGHTS (AMS (H).6) 

560 REM INFUT MOVIMENTI 

570 BS (1) =08 (1) : BS (2)=08 (2): BS (4Y=SLé 

573 GOSUB 2000: REM MASCARA 

580 GOSUB 3000: REM DATA ENTRY 

585 IF FS=ó THEN 575 

590 1F FS=7 THEN RETURN 

595 IF RE=O THEN 669 

500 REM CALCULA LOS DIAS 

505 IF VAL(BS(3))->31 OR VAL (B$(5)) > 12 THEN PLAY BF*: CLS: X=16:Y=10: GOSUB 1 
1000: PRINT "ERROR'":FOR I=1 TO 1000:NEXT 1I:GOTO 560 

615 BE=VAL (B$ (3)) 

618 IF BEX<10 THEN B4 (3)5Z2ES$+RIGHTS (B$ (33,1) 

620 D1=VAL (MM$+DD$) : D2=VAL (BS (5) +B$ (3)) 

625 DI=D2-D1:1F D3.< O THEN 629 

626 GOTO 630 

629 CLS:X=163 Y=10:GOSUB 11000: FRINT"ERROR!":Y=Y+2:X=3:G0SUB- 11000:PRINT"La fecha 
es anterior a la del ultimo movimiento":FOR I=1 TO 2000:NEXT 1: GOTO 56 


630 DM$=STE$ (D3) :L9=LEN(DMS) : DME=RIGHTS (DM$,L 9-1) 
632 IF LEN(DM$)=4 THEN 540 

5675 FOR JJ=1 TO 4-LEN (DMS):DM$="0"+DM$: NEXT JJ 
640 MM=VAL (LEFTS (DM$,2)): 1F MM>12 THEN MM=MM-88 
645 DD=YAL (RIGHTS(DM$,2)):1F DD>30 THEN DD=DD-70 
650 DD=DD+MMX30 

655 REM 

660 REM CALCULA INTERES 

663 Ti=TE-TU 

666 T2=(TIX(TA/100)/365) 66 

667 TI=TI+T2: TI=INT(TI1) 

£69 REM 

685 IF VAL(B$(6))>0 THEN TE=TE+VAL (BS (6)):VB=5: 2=TE:V0=9:G0SUB 14000: GOTO 695 


690 TU=TU-VAL (BS (6)) 1 VB=6:V0=9: Z=TU: GOSUB 14000 

695 VB=7:2=T1:V0=8:G0SUB 14000 

702 EB$="" 

705 FOR L=1 TO 8: BBS$=BB$+C$(L):NEXT L 

741 HHS=LEFTS(B$(3),1):1F HH$=" " THEN BS(3)=ZES+RIGHTS(B$(3),1) 

742 PPS=LEFTS(B$(5),1): 1F PPS=" " THEN B$(S)=ZES+RIGHTS(BS$(5),1) 

743 RE=RE+1 

744 H=RE 

747 AAS$(0)=STRS(RE) 

748 AAS(H)=BS(3)+BS (5) +B8 (6) +B8 (7)+F1$ 

775 CLS:X=3:Y=10:GOSUB 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE”: Y=Y+2: GOSUB 

11000: PRINT (1) PARA UNA NUEVA INTRODUCCION" 

780 R$=INKEYS: IF R$="" THEN 780 

782 1F R$="0" THEN 790 

784 1F R$="1" THEN GOTO 440 

786 1F R$<>"0" OR RS<>"1" THEN 780 

790 GOSUB 6500 * 

792 RETURN 

800 REM ===> 

807 REM APERTURA CUENTA 

BOS REM —===========- 

815 GOSUB 6000 

820 IF R$="N" OR R$="n" THEN RETURN 

B90_CS(1)SLEFTS(BBS,20)10$(272MID$(BB5, 21, 67205 (39=MID$(BB$,27, 4) 108 (4) RIGHTS (B 
e 

890 BS(1)=C0$(1):BS(2)=C08(2)1B$(3)=08(3):F1$(1)=08(4) 

930 FOR J=1 TO 3 

940 1F LEFTS(B$(J),1) <> AS$ DR RIGHTS(B$(J),1) <> AS$ THEN TP(J)=5 

950 NEXT J 

960 GOSUB 2000: REM MASCARA 

970 GOSUB 3000:REM DATA ENTRY 

97% 1F FS=é THEN 880 

980 IF FS=7 THEN RETURN 

1020 C$(1)=B$(1) 

1030 C$12)=B$(2) 

1040 C$(3)=B5 (3) 

1045 C$(4)=FI$(1) 

1060 BBS$="" 

1070 FOR L=1 TO 4 

1075 BE$=BE$+C$(L) 

1080 NEXT L 

1090 GOSUB £500 

1140 RETURN 

1300 REM =============- 

1310 REM MENU PRINCIPAL 

1320 REM ==-- 

1330 CLS 

1335 X=1;Y=0:GOSUB 11000:PRINT CHR$(1)3CHR$(8H58);3:FOR V=1 TO! 6:PRINT CHR$(1)1CH 

R$(LHS7)3 NEXT V:PRINT CHR$ (1) ;CHRS (259) ; 

1340 X=XC+7:Y=01GOSUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUE 11000: PRINT CHR$(1)3CHRS (8 

HS6); 3 PRINT MP$;:PRINT CHR$(1)¿CHRS(2H56);:Y=Y+1:X=1:GOSUB 11000: PRINT CHR$(1)¿C 

HRS (LHS6) 3 :PRINT SPC (6)3:PRINT CHR$(1);CHR$ (£H56) 3: PRINT SPACES (3%); : PRINT PROGS$ 

+DES ; 

1345 X=1:Y=Y+1:GOSUB 11000: PRINT CHR$(1)¿CHRS(2H5A)31 FOR V=1 TO 6: PRINT CHR$(1)5 

CHRS (2537) 3NEXT V:PRINT CHR$(1);CHR$(2H51);:FOR V=1 TO 3O:PRINT CHRS(1);CHR$ (8H 

5733: NEXT Y 

1350 FOR 1 = MI TO MA 

1360 Y=I*SZ4YC: X=XC:GOSUB 11000 

1370 11=1 

1380 1F 1I= (MA) THEN 11=0 

1390 PRINT I1;"-"¿VO$(1) 

1400 NEXT 

1410 I=MI 

1420 Y=IXSZ+YC:X=XS:GOSUB 11000 

1430 SP=YC-1 

1940 PRINT "=>"; 

1450 OPZ$=INKEYS: IF OPZ4="" THEN 1450 

1455 OPZ=VAL (0PZ$):1F OPZ$=US$ THEN 1530 

1460 IF OPZ >NY THEN 1450 

1470 1F OPZ4=ZE8 THEN X=XS:GOSUB 11000:PRINT SPC( SP); 1 1=MA: GOTO 1420 

1480 IF ASC(OPZ$)>48 AND ASC (0PZ$) <S8 THEN X=XS:GOSUB 11000:PRINT SPC( SP);2 1 

OFZ:GOTO 1420 

1490 1F OPZ$% <> GIUSTHEN 1450 

1500 X=XS:GOSUE 11000: PRINT SPCC SF); 

1510 I=1+1: 1F 1> (MA) THEN 1410 

1520 GOTO 1420 

1530 X=XC: Y=1*SZ+YC 

1540 II=1:1F 1 > NY THEN I1=0 

1560 PRINT L13"-"3V0$(1) 

1580 OPZ =1 

1590 RETURN 

2000 REM =============-=-- 

2010 REM PRESENTA MASCARA 

2020 REM === 

2030 CLS 

2130 L=LEN(VOS (0PZ))-3 

2140 FM=(29-L)/2 

2150 X=1:Y=0:GOSUB 11000:PRINT CHR$(1);CHR$(2H58)3:FOR V=1 TO 6:PRINT CHR$(1)5CH 

R$(RHS7)3 ¿NEXT V:PRINT CHR$(1)5CHRS (£HS9)3:X=XC+7:GOSUB 11000:PRINT H1%: 

2190 DPZ$=LEFTS(STR$(DPZ),2) 

2195 Y=Y+1;X=1:GOSUE 11000:PRINT CHR$(1)3CHR$(2HS6) 3 "VOZ"¿OPZ$;" "¿:PRINT CHRS$(1 

) 3; CHR$ (LHS6) 3 $ 

2200 Y=Y+2:X=1:GOSUB 11000:FPRINT CHR$(1)3CHR$(2H5A)3:FOR Vel TO 6:PRINT CHR$(1);3 

CHR$(2H57) 1 ¿NEXT V:PRINT CHR$(1)¡CHR$(£H51)3:2 FOR Ve=1 TO 31:PRINT CHRS$(1);CHR$ (2H 

57)3:NEXT Y . 

2215 Y=Y-1:X=1:GOSUB 11000:PRINT CHR$(1)3CHRS (2H56) 3 SPC (6) CHR$(1)3CHR$ (£H56);:P 

RINT SPC(FM)::PRINT VOS(OPZ)5:3PRINT SPC(FM) 
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2217 1F 0PZ7=2 OR OP2=4 OR OP2=5 OR OPZ=6 THEN RETURN 
2218 Y=21:X=0:GOSUB 11000: PRINTF1S 

2220 X=25:Y=22:G0SUB 11000:FRINT HES 

2240 FOR J=1 TO NUC 

2245 At= "" 

2270 X=DX(J):Y=DY(J):GOSUB 11000: PRINT D*(J) 
2280 1F TP(J)> <>5 AND TP(J) <> 4 THEN 2310 
2290 X=CX (3) 2 Y=0Y (3): G0SUE 11000 

2300 PRINT B$(J):GOTO 2500 

2710 Ni=LC(I):N2=ND (9): 1F TP(J)=1 OR TP(39)=2 THEN Cé=NS$:GOTO 2350 
2740 CS=AS$ 

2730 AS=STRINGS+(N1-N2-1,C$) 

2760 1F N2=0 THEN A$= A$+C+:GOTO 2390 

2370. AS=AS+FDS 

2380 FOR I=1 TO N2:A$=A$+7E*$:NEXT 1 

2390 X=0X (9): Y=0Y(J):GOSUB 11000 

2400 PRINT AS 

2410 B$(J)=SPACES (N1-=N2=1) 

2492 B$(J)=BS8 (J)+FRIGHTS (A$,N2+1) 

NEXT J 

RETURN 

A ia 


REMESAS 

J=1 

NC=J1 X=CX (NC) 3 Y=CY (NC) 

cc=1 

GOSUBE 3240 

IF FS=O THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

J=J+1: 1F JONUC THEN 3OZO 

GOTO 2040 

O ON FS. GOTO 2130,3150,3170,31790 
1F J>1 THEN J=J-1:GOTO 3040 
FLAY BF$ :FS=0;J=NUC:GOTO 3040 
IF J. NUC THEM J=3+1:GOTO 3040 
PLAY BPS$:FS=0: GOTO 3OZÓ 

1F CC<LC(J) THEN S=1:CC=CC+1:X=X+1:GOSUB 11000:GOTO 3060 
PLAY. BP$:FS=0:GOTO 3100 

IF CC1 THEM S=-1:CC=CC-1:X=X-1:GOSUB 11000:GOTO 3060 
PLAY BP: FS=0:G0T0 3040 

IF FS>8 THEN FS=0:G0TO 2060 

IF FS=8 THEN FS=0:G0OTO' 3100 
RETURN 

REM ii 


REM === 

FS=0 

IF TFANCI=A THEN RETURN 

IF TP(NC)=2 THEN RETURN 

IF MIDE (BS (NC>.CC,1I=FDS THEN X=X+8: 00=CC+S 
GOSUE 11000 

3320 AL=INKEYS: IF Ag= "THEN PRINTU O :: GOSUBL1000:FRINTMIDS (BS (NC) (CC, 117: 60SU 
B11000: G0TO3320 

3330 CASASC(ALY: 1F CA > A2 THEN 3380 
3340 FOR I=1 70 15 

250 IF OTECI)= CA THEN FS = Ti GOSUB 7670: RETURN 
3360 NEXT 1 

3370160710. 332 

3380 IF TP(NC)<>1 THEN 3440 

3290 IF CA=45 OR CA=46 OR (CA>=48 AND CA“=57) THEN 3410 
3400 FLAY BP$:GOTO 3320 * 

3410 IF CA <> 46 THEN 3440 

3420 GOSUB 4270 

3430 1F SWP=1 THEN 2400 

3440 S=1: GOSUB 3520 

3450 IF COSLC(NC) THEN RETURN 

3460 CCO=CC+1:X=X+1:GOTO 3300 

ISO REM: === H====-> Ro--- 

75930 REM TRASFERENCIA AL BUFFER 

3340 REM Sono... 

35390 IF CC=1 THEN SN%= "":GOTO 3570 

3560 SNS=LEFTS (E4 (NC). CC=1) 

3570 IF CCELC(NC) THEN DS$= "":GOTO 3590 
3580 N=LC(NC)=CC:DE$=RIGHTS (Bé (NC) N) 
3590 BS (NC) =SNS+A$+DS$ 

3620 PRINT At: RETURN 

3630 REM --==-=--- 

3640 REM COMANDOS 

3650 REM -=-=-==-- 

3660 1F FS>5 THEN 3690 

3680 RETURN 

3690 1F FS=9 THEN GOSUB 13000: RETURN 
3700 1F FS=8 THEN GOSUB 4080: RETURN 
3710 1F FS<8 THEN RETURN 

3720 ON FS-9 GOSUB 3740,3910 

3730 RETURN 


3750 REM INSERCION 

SAN REM == === 

3770 IF CCO=LC(NC) THEN PLAY BF+:RETURN * 
3780 IF CC=1 THEN SN$= “":GOTO 3800 

3790 SNS=LEFTS (BS (NC). CC-1) 

3900 N=LC(NC)=-CC+1:DSS$=RIGHTS (BB(NC),N) 

3810 1F TP(NC)=1 OR TPINC)=2 THEN C£=BL$:GOTO 3830 
3820 CS$=BLS 


AS=3NS$ +C4$+DS48 
BS5(NC)=LEFTS (AS, LC(NC)) 

XX=X: YY=Y 

X=CX (NC) 2 Y=CY (NC): GOSUE 11000 
X=XX:Y=YY 

PRINT Bs (NC): S=-1 t 

IF RIGHTS (BS$(NC),1)= FD$ THEN 3780 
RETURN 


REM. omimezanis 

IF TF(NCI<>1 THEN 3960 

IF MIDS (B$(NC),2,1) = PD* AMD CC=1 THEM RETURN 
IF CC<1 THEN FRINT BF*$: RETURN 

IF CC=LC(NC) THEN DS%$= "": GOTO 4000 
N=LC(NC) -CC:DS€ =RIGHTS (E*$(NC),N) 
IF CC=1 THEN SN$= GOTO 4010 
SN$=LEFTS — (B$(NC),CC-1) 

IF TP(NC)=1 OF: TP(NC)=2 THEN C$=NS$ 
Có=AS$ 

BS (NC)= SN$ +DS$ +C$ 

XX=X1YY=Y 

X=CX (NC): Y=CY (NC) :GOSUB 11000 
X=XX2Y=YY 

FPRINT ES (NC): :S=1; RETURN 
REMIAEASS 


REMESAS TA 

IF LC(NC)=1 THEN RETURN 
N1=LC(NC)=CC+1 

IF CC=1 THEN B*(NC) = ""z GOTO 4150 
BS$(NC)= LEFTS (BS (NC),CC-1) 

IF TPINC) =1 OR TP(NC)=2 THEN 4200 
FOR I=1 TO Ni 

BS (NC) =B4 (NC) +BL$ 

NEXT 1 

GOTO 4240 

FOR I=1 TO Ni 

BS (NC)=BLS +ES (NC) 

NEXT 1 

IF RIGHTS (BS$(NC>,1) =PD*$ THEN BS(NC)= BL+ +LEFTS (E$(NC),LC(NC)-1) 
X=CX (NC): Y=CY (NC) 

GOSUE 11000 

PRINT BS (NC): RETURN 


REM nooo 

REM CTRL PUNTO 

REM 

SsuPo= 0 

IF CC=1 OR CC=LC(NC) THEN SWP =1: RETURN 
FOR 1=1 TO LC(NC) 


1F MID*(BS(NC),1,1)= FDS THEN 1 = LC(NC): SWP=1; RETURN 
NEXT l: RETURN 
REM ===> , 


REM oro 

CLS: X=3:Y=12:GOSUB 11000: PRINTW3S$ 

Y=Y+1:GOSUB 11000:PRINT LEFT+(W2$, 4) 

FOR 1=1 TO 1000:NEXT I:Y=16:GOSUB 11000: PRINTWS$; 
Ró=INKEYS: IF Re THEN 6040 

IF R$="S" OR R$="s" THEN 6060 

IF R$="N" OR R$="n" THEN RETURN 

IF RS<>"S" OR R$<>"S" OR R$<>"N" OR RS<>"n" THEN 6040 


CLS: X=15: Y=10:GOSUB 11000: PRINTW4S 
REM TOMA DATOS DE BNC 

OPEN "CAS:BNC" FOR INPUT ASH1 

INPUT 41,BBS 

BES=RIGHTS (BE$,L1) 

CLOSE v1 

REM TOMA DATOS DE CON 


OPEN "CAS:CON" FOR INPUT ASH1 
INPUT 41,AA$(0) 
RE=VAL(AAS (0)) 

1F RE=0 THEN 6160 

FOR L=1 TO RE 

INPUT 41,AAS(L) 


EM: moras anjnar acciones cosa q ento ene 

CLS: X=3:Y=18:GOSUB 11000: PRINTW3S 

Y=Y+1:GOSUÉ 11000:PRINT W2$ 

FOR 1=1 TO 1000:NEXT 1:X=3:Y=22:GOSUB 11000: PRINTUSS$; 
R$=INKEY$:1F R$="" THEN 6535 

1F R$="S" OR R$="s"” THEN 6555 

IF R$="N" OR R$="n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR RS<2"N" OR R$<>"n" THEN 6535 
CLS:X=15:Y=10:GOSUB 11000; PRINTW4S 

OPEN "CAS: BNC" FOR OUTPUT ASH1 

FRINT-41,BE+$ 

CLOSE *1 

OFEN "CAS: COM” FOR OUTFUT ASH1 

FOR L=0 TD RE 

FPRINT $41,AAS(L) 

NEXT L 

CLOSE $1 
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6680 RETURN 

A A A 

7010 REM LECTURA DE LOS DATOS 

Ii O 

7030 RESTORE 10040 

7040 READ NV 

7043 RESTORE 10090 

7050 FOR 1 = 1 TO NV:READ NUC(I) 
7060 NEXT 1 z 

7067 1F OPZ=1 THEN GOSUB 7200:G0TO 7071 
7068 GOSUB 7220 

7071 NUC=NUC (DPZ) 

7072 FOR I=1 TO NUC 

7074 READ D$+(1) 

7076 NEXT 1 

7080 FOR 1 = 1 TO NUC 

7090 READ TP(1),LC(I),ND(1),DX (1) DY (1),CX(1),CY(1) 
7110 NEXT 1 

7120 RETURN 

7200 RESTORE 10100:RETURN 

7220 
8000" 
8002 REM EXTRACTO CUENTA 

SOS REM ene 

8007 CLS:GOSUB 2000 

8010 X=3:Y=10:G0SUB 11000 

86012 PRINT "1) IMPRESION TOTAL" 

8015 Y=Y+2: GOSUE 11000: FRINT "2) IMPRESION FARCIAL" 

B017 Y=Y+2: GOSUB 11000: PRINT "3) VUELVE AL MENU" 

8020 Y=20:GOSUE 11000: PRINT "ELIJA :"3 
8022 SC$=INKEYS: 1F SC$="" THEN 8022 
8025 SC=VAL(SC$) 

8027 IF SC<1 OR SC>3 THEN PLAY BP$:G0TO 8022 
8030 1F SC=3 THEN RETURN 

8032 X=3:Y=10:G60SUB 11000 
8035 PRINT "1) EN IMPRESORA"; SPC (5) h 

8037 Y=Y+2:GOSUB 11000:PRINT "2) EN PANTALLA"¿SPC(10)> 
8040 Y=Y+2:GOSUB 11000:PRINT SPC(20) 

8042 Y=20:G05UE 11000: PRINT "ELIJA :"; 
8043 SSó=INKEYS: 1F SS$="" THEN 8045 

B047 SS=VAL (SS$) 
8050 GOSUB 6000 

8065 IF R$="N" DR R$="n" THEN RETURN 

8095 C$(1)=LEFTS(BR$,20):0$ (2) =MID$(BB$,21,6):0$(3)=MID$(BB$,27,4):0$ (4)=MIDS (BE 
$,31,3) 

8097 C$(5)=MIDS (BB$,34,9):0$ (6) =MIDS$(BB%,43,9):03 (7) =MID$(BB$,52,8):04 (8) =RIGHTS 
(BB$,7) 

8100 TE=VAL(C$(5)): TU=VAL (0$(6)):T1$=C0$(7) ¿UR=VAL (04 (4)) 

8102 IF VAL(C$(3))=0 OR (TE=0 AND TU=0) THEN RETURN 

8122 IF SS=1 THEN 8250 

B125 CLS:X=103Y=1:G0SUB 11000: PRINT "EXTRACTO CUENTA" 
8127 X=1:Y=Y+2:GOSUB 11000: PRINT"BANCO :"3SFC(2):05$ (1) 

B130 V=Y+3:GOSUB 11000: PRINT "FECHA IMPORTE MOTIVO" 
8132 IF SC=1 THEN Mi=1: GOTO 8137 

8133 IF UR=RE+1 THEN Tl$="":GOTO 8173 
8135 M1=UR: IF UR=0 THEN Mi=1 

8137 Y=Y+1:G0SUR 11000 

B140 FOR K=M1 TO _RE 
8142 DD=VAL (LEFTS(AA$(K),2)) :¿MM=VAL (MIDS(AAS (K),3,2)) :MOS=MIDS(AAS (K),5,8) : CUS=M 
1D$(AAS (K),13,20) 

8145 DD*=STR+$(DD) 

8147 MMS=STR$ (MM) . 

3190 X=1:Y=Y+1:GOSUE 11000:FPRINT RIGHTS5(DDS$,2);SL$; RIGHTS (MM$,2)3:X=8:GOSUE 1100 
O+PRINT MO$3:X=19:GOSUE 11000:PRINT CU$S 

B152 IF Y>=22 THEN 8155 ELSE 8157 
8155 R$=INKEYS$: 1F R$="" THEN 8155 

8157 NEXT K 
8160 IF DD=0 THEN PRINT"ERROR EN LOS DIAS":FOR K=1 TO 10003NEXT Il: RETURN 
8162 TT=TE-TU: TTS=STRS(TT): TTé=RIGHTS(TTS,LENCTTS)-1):LT=LEN(TTS) 
8165 LL=9-LT:1F LL=0 THEN 8170 

8167 TTS=SPACES (LL) +TTS 

8170 GOSUB 11000 
8173 PRINT:FPRINT 

8175 PRINT " SALDO";3SPC(15)¿TT$ 

8177 PRINT 

8190 PRINT " INTERESES DEVENGADOS": SPC(3);T18 
3195 PRINT BL$+RIGHTS (03,29) 

8197 TT=TT+VAL(TIS):TTESTRE(TT):TTS=RIGHTS(TTS,LEN(TTE)-1) 
8200 LT=LEN(TTS): LL=9-LT: IF LL=0 THEN 8205 

B202 TTS=SPACES (LL)+TTS 
8209 PRINT " TOTAL";SPC(19):TT5S 

8211 Re=INKEYS: IF R$="" THEN 8211 
8212 IF SC=2 AND UR=RE+1 THEN RETURN 

B213 IF SC <> 2 THEN RETURN 

8215 REM 

223 7=RE+1:VB=4:V0=3:G0SUB 14000 
8227 BB3="" 
8230 FOR L=1 TO 8:RES=RES+C$(L):NEXT L 

8235 GOSUB $500 

237 RETURN 
8230 LFRINT TAB(10)3 "EXTRACTO CUENTA" 
8260 LPRINT:LFRINT TAB(1)3 "BANCO :"23SPC(2)308 11) ' 
8270 LPRINTILFRINT::LPRINT TAB(1); "FECHA IMPORTE MOTIVO" 
8280 IF SC=1 THEN Mi=1: GOTO 6284 
8281 IF UR=RE+1 THEN Tls="":GOTO S350 
8282 Mi=UR:1F UR=0 THEN M1=1 
82394 LPRINT 


1818 


8285 


FOR K=M1 TO RE 


8290 DD=VAL (LEFTH(ARS (10,27): MM=VAL (MIDE (AAS (K),3,2)):MO$=MIDH (ARS (13) 5,8) :CUS=M 
1DS (ARE (1C),13,20) 


8300 
8310 


DD$+=STR+ (DD> 
MMS$=STR$ (MM) 


8320 LPRINT TAB(1);RIGHTS(DDS,2) ¡SL RIGHTS (MMS. 2): LPRINT TAB(8);M0$;: LPRINT T 
AB(19):CU$ 


B330 
8335 
8340 
8345 
8350 
8360 
8370 
8380 
8385 
8387 
8390 
8392 
B400 
8405 
8410 
8500 
8505 
8510 
8512 
8515 
8517 
8520 
8s22 
8525 
8527 
8530 
8540 
8560 


$31, 


8562 


(BBS, 


eses 
8567 
8572 
8575 
8577 
8580 
8382 
8585 
8587 
8590 
8592 
8597 
B600 
38502 
8605 
8630 
B640 
8650 
6655 
8560 
B463 
86653 
8670 
8700 
8705 
8710 
8712 
8715 
8717? 
8720 
8722 
e725 
8727 
B730 
8740 
B760 


$,31, 


8762 


(BES, 


e763 
87655 
8773 
8774 
8775 
8778 
8782 
8785 
8770 
8792 
geoo 
es02 
8eos 
8815 
S616 
8817 
8820 
8e22 
8825 
8970 


NEXT K 

TTSTE-TU: TTSSSTRS (TT): TTESRIGHTS (TTE,LENCTTS)-1)3LT=LEN(TTS) 
LL=9-L.T:+ 1F LL=O THEN 8350 

TTR=SPACES (LL)+TTS 

LPRINT:LPRINT 

LPRINT " SALDO"¡SFC(15)3TTS 

LPRINT 


LPRINT " INTERESES DEVENGADOS”; SFPC(3);TI8 
LPRINT BL$+RIGHTS (08, 29) 
TTSTT+VAL (113): TTESTRE(CTT) 

LT=LEN(TTS$):2 LL=9-LT:+ IF LL=0 THEN 8400 
TTISSPACES (LLI+TTS 

LPRINT " TOTAL"¿SPO(14)¿TT98 

IF SC=2 AND UR=RE+1 THEN RETURN 

IF SC=2 THEN 8215 ELSE RETURN 

REM -- 
REM IMPRIME LISTA 

REM mmm 

COLS: G60SUB 2000: X=3: Y=10:GOSUB 11000 
FRINT "1) EN IMPRESORA" 

Y=Y+2:G0SUE 11000:+FPRINT "2) EN PANTALLA" 
Y=20:G0OSUB 11000: FPRINT "ELIJA 2"; 
SS$=INKEY$: 1F SS$="" THEN 8522 

SS=VAL (SS+$) 

IF S5S=1 OR SS=2 THEN 8530 ELSE 8522 
GOSUB 6000 

IF R$="N" OR R$="n" THEN RETURN 


CS (1) =LEFTS (BBS, 20): 04 (2)=MIDS(BB$,21,6):0$(3)=MIDS(BE$,27,4):08(4)=MIDS (BB 
3) 


C+ (5)=M1D$(BB%,34,9):C4(6)=M1D$(BB$,43,9):08(7)=MID$ (BB$,32,8):C0$(8)=RIGHTS 
7) 

IF VAL(C$(3))=0 THEN PLAY BF$:G0TO 8512 

1F SS=1 THEN 8630 

COLS: X=3:Y=2:GOSUE 11000: PRINT "BANCO :"3:X=12:GOSUB 11000: FPRINTCS$ (1); 
Y=4:X=3:GOSUB 11000:PRINT"CUENTA :" e 
X=11:GOSUB 11000:PRINT " ";C$(2) 

Y=8:X=3:GOSUB 11000 

PRINT "ENTRADAS =";C5$(5) 

Y=10:1X=3:G0SUB 11000: PRINT"SALIDAS =";08 (6) 
Y=14:X=3:GOSUE 11000: PRINT"TASA INTERES="3SFC(3);C$(3); 
Y=16:X=3:G0SUB 11000:PRINT “INTERES DEVENGADO =";038(7) 
X=3:Y=21:GOSUB 11000 

PRINT Qs 

X=3:Y=Y+1:GOSUE 11000: PRINT "(pulsar una tecla para continuar)" 
R$=INKEYS: IF R$="" THEN 8602 

RETURN 

LFRINT TAB(3): "BANCO :":TAB(11):08 (1) 

LPRINT TAB(3)3 "CUENTA :"¿TAB(11)3C0$(2) 

LPRINT:LERINT 

LPRINT TAB(3); "ENTRADAS ="C9 (5) 

LPRINT:LERINT TAB(3); "SALIDAS ="108(6) 
LPRINT:LPRINTSLPRINT TAB(3)3 "TASA INTERES EA EA 


LPRINT:LPRINT TAB(23); “INTERESES DEVENGADOS =":04 (7) 
RETURN 0, 


REM noo o 

REM CIERRE CUENTAS 

REM ==do2 o 

COLS: GOSUE 2000: X=3: Y=10:GOSUB 11000 
FRINT "1) EN IMPRESORA" 

Y=Y+2:GOSUB 11000: PRINT "2) EN PANTALLA" 
Y=20:GOSUB 11000: PRINT "ELIJA 1"; 
SS$=INKEYS: If SS$="" THEN 8722 
SS=VAL(S8$) 

IF SS=1 OR SS=2 THEN 86730 ELSE 8722 
GOSUE 5000 > 

IF RS="N" OR R$="n" THEN RETURN 

CS (1)=LEFTS(BES,20):09(2)9MIDS(BB$,21,6):04(3 


> SIEMIDS (BB6,27,9):08(9)=MIDS$ (BB 
3) 
CS (S)FMIDS(BB$,74,9):08 (6) =MIDS (BB€,97,9):09 (7) =MIDS (BB$,52,8):0$ (8) =RIGHTS 
7) 


IF VAL(C$(30)=0 OR (VAL (C$(5))=0 AND VAL (0%(6))=0 ) THEN PLAY EP+$: RUN 
ZASVAL (CS (5) ) VAL (04 (6) )+VAL(C$(7)) 

IF SS=1 THEN 8800 

CLS:X=3:Y=3:GOSUB 11000: PRINT "BANCO: "¡:X=11:GOSUB 11000: PRINTCS (1)3 
X=3:Y=Y+3:GOSUB 11000:PRINT "SALDO DE CIERRE: "¡ZA 

X=3:Y=21:GOSUE 11000 

PRINT Os 

X=3:Y=Y+1:GOSUE 11000: FRINT "(pulsar una técla para continuar)" 
RS=INKEY*: IF Ri="" THEN 8790 

GOTO 8815 

LPRINT TAR(233 "BANCO: "¿TAB(11):08 (1) 

LERINT:LPFINT 

LPRINT TAR(3)¿ "SALDO DE CIERRE: "¡ZA 

iS: Y=18: GOSUE 11000: FR INT Yis 

GOSUB 11000: PRINTWZS 

FOR 1=1 TO 1000: MEXT l:Y=22;GOSUE 11000:PRINT WS; 

ES=IMKEYR:1F Fs="" THEN 6820 

IF Ri="3" OR Ri="s" THEN 88735 

IF Rg$="N" OR Rs="n" THEN RETURN 

IF R$ 27 "S" OR ASIS "5" OR RES "N" OR RS) "n” THEM 8820 
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10010 
10020 
10030 
10040 
10050 


ra cuenta" 


10060 
10070 
10090 
10100 
10110 
10120 
10125 
10130 
10135 
10140 
10150 
10170 
10180 
10190 
10200 
110060 
11010 
11020 
11030 
11040 
12000 
12010 
12020 
12030 
12032 
12059 
12060 
12065 
12070 
12075 
12167 
12170 
12180 
12190 

2200 
12210 
12220 
12222 
12225 
12230 
12240 
12250 
12260 
12290 
12700 
12310 
12320 
12330 
12400 
12405 
12420 
12430 
12450 
12550 
12390 
13000 
13010 
13020 
13050 
13055 
13060 
13110 
13120 
13130 
13140 
13150 
17160 
13170 
13190 
13190 
13200 
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CLS: X=15S:Y=10:G0SUB 11000:FPRINTWI3 
20: VB=4:V0=3:60SUB 14000 
VE=S:'0=9:GOSUB 14000 
VB=5:V0=9:G0SUB 14000 
E=7:Y0=8:G0SUBE 14000 

OPEN "CAS:BNC" FOR OUTPUT ASH1 
ERs="" 

FOR L=1 TO 8 

PES=BB4+C03 (L) 

NEXT L 


Z PRINT 41,BB$ 


ELOSE +1 


* OPEN "CAS:CON" FOR CUTPUT ASR1 


AA 

ABE (0)=STRINGt (12,494) 

PRINTO41,AA$ (0) 

CLOSE M1 

PLS:X=18:Y=10:G0SUE 11000: PRIMT "TERMINADO! ":FOR 1=1 TO 10003NEXT 1 


REM DATO 
REM -- 
DATA "GESTION CUENTA CORRIENTE" 
DATA 
DATA 


o 


“Movimientos (ingresos y salidas)","Impresion extracto cuenta", "Apertu 


DATA "Cierre cuenta", "Impresion lista banco y cuenta", "Generacion sistema" 
DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

DATA 7,0,3,0,0,0 ; 

DATA "BANCO", "CUENTA", "FECHA (DD/MM)",,, "IMPORTE", "MOTIVO" 

DATA 4,20,0,2,7,20,7 

DATA 4,5,0,2,9,20,9 


DATA 1,2,0,2,13,20, 13 

DATA 4,1,0,2,1,22,13 

DATA 1,2,0,2,1,23,13 

DATA 1,8,0,2,15,20,15 

DATA 3,20,0,2,19,20,19 

DATA "BANCO", "CUENTA", "INTERES" 


DATA 3,20,0,1,10,1,13 
DATA'3,6,0,23,10,23,13 
DATA 1,4,1,31,10,33,13 
REM nn 
REM POSICIONA CURSOR 
REM! ===" - 

LOCATE X, Y 

RETURN 

REM a a a a a ¿a a e e 
REM GENERACION SISTEMA 
REN or 
cLs 

GOSUB 2000 

Y=19:GOSUB 11000: PRINT "CONTINUO (S/N) " 


RS=INKEYS: IF R$="" THEN 12060 

IF R$="S" OR R$="s" THEN 12167 

IF R$="N" OR R$="“n" THEN RETURN 

IF R$<>"S" OR R$<>"s" OR R$<>"N" OR RS<>"n" THEN 12060 
CLS > 

Y=18:X=73:G0SUB 11000:FRINT Wis$ 

Y=Y+1:G0SUB 11000:PRINT W2$ 

FOR 1=1 TO 1000:NEXT 1 

X=3:Y=22:G0SUB 11000:PRINTWSS; 

RS$=INKEYS:3 1F R$="" THEN 12210 

IF R$="S" OR R$="s" THEN 12230 

IF R$="N" OR Ré="n" THEN RETURN 

IF RS<>"N" OR R$<>"n" OR R$>"S" OR R$<> "s" THEN 12210 
CELS: X=10:Y=10:GOSUB 11000 

PRINT "GENERACION EN CURSO" 

X=3:Y=16: GOSUB 11000 

FRINT "(Se ha previsto un maximo de 100 

BES="" 

OFEN "CAS:ENC" FOR OUTFUT ASH1 

BBS$ (1) =STRING$ (L1,AS$) 

PRINT 41,BE3(1) 

CLOSE v1 

CPEN "CAS:CON" FOR OUTPUT AS$1 

AA 

ARA? (0) =STRINGS (12, AS$) 

PRINT $1,44$ (0) 

CLOSE $1 

CLS:3 X=15:Y=10:GOSUB 11000: PRINT "TERMIMADO'": FOR I=1 TO 1000: NEXT 1 
BENE 


movimientos) "a 


REM 
LOCATE 0,22 
FRINT "AYUDA (barra espaciadora para continuar) "3 
GOSUBE 13600 

PRINT “FLECHAS: mueven en las 4 direcciones il 
GOSUB 17400 

PRINT "RETURN: alinea y convalida Ja imtroduecion”": 
GOSUB 13500 

PRINT "Fiz vuelve al menu principal il 
GOSUBE 13600 

FPRINT “F2: anula toda la introduccion e 
GOSUE 173600 

FRINT "F3: cancela un caracter De 
GOSUB 13600 


17217 GOSUB 13600 , 
co ADRIS PRIMT MFS: introducción en cxsset 


17220 GOSUE 13600 
- N 
2300 RETURN 
O ASSINKEYT:IF Ag= "" THEM 17600 
(A IF. as: CHR$/72) THEN 12600 
b 
17620: SETUEN 
YA GOO RE? => 
14010 REM COMPLETA BUFFER 
AE A —Á 
14070 ALE=STRE (2) 
FAR IF LEr 
14050 IF LEN(A1+> YO THEM AlSt=ERS 
«TW 


¡A0E0 NESVO=LEN (ALE AgE=Un 
14070 FOR ido TO*'NEB 


19090 NEXT 33 
AATOO ESAOBIAADIRALES CIA 
19110 RETURN 


AA NS A EL TO AR TA EAT 
ATAR TEN COUNT, 


RELACION DE LAS VARIABLES - VERSION PHILIPS VG8010 


matriz buffers (uno por campo) 
tipo de los campos 

longitud de los campos 

número decimales del campo 
coordenadas del campo 
coordenadas de las instrucciones 
códigos ASCII de los comandos 
reconocidos 

descripciones máscaras vídeo 
voces del menú principal 

blank (espacio) 

”E” (por Error) 

”0" (cero) 

punto decimal 

símbolo de campo alfanumérico 
símbolo de campo numérico 
tecla RETURN elección voz menú 


A 


Extensiones y modificaciones 


Versiones en cinta. En las versiones en cinta 
(Commodore-64 y MSX-Basic) debe limitarse el 
número máximo de movimientos previstos en un 
año para poder cargar todos los registros en me- 
moria, adoptando una estructura muy similar a la 
de un disco. 

Las únicas diferencias con respecto al listado de 
la versión DOS consisten en los mensajes de avi- 
so de colocación de la cinta y en la limitación a 
una sola cuenta (el número de movimientos no 
varía). 

implantaciones. La versión presentada en los 
diagramas de flujo no hace ninguna distinción en- 
tre los dos tipos de movimientos; el usuario debe 
especificar, mediante el signo, la naturaleza de la 
operación: ningún signo para los ingresos, signo 
menos para las retiradas. 

La solución mejor y más completa consiste en in- 
formar a priori al programa acerca del tipo de 
operación que se va a realizar, de manera que 
sea el propio sistema el que introduzca el signo. 
Esta implantación, a fines de programación, se 
reduce a insertar una petición.a la entrada de la 


coordenadas cabecera menú 
número de voces del menú 
coordenadas de voces del menú 
espacio entre dos líneas del menú 
coordenadas posicionado cursor 
número de campos ; 
valores asociados a los comandos 
contador de caracteres 

código ASCII de A$ 

carácter adquirido por teclado 
parte izquierda del buffer 

parte derecha del buffer 

longitud de los registros 

0 

número de registros escritos 

flag para impresión total o parcial 
cadenas gestión cinta 


rutina de los movimientos y a la implantación del 
signo + o — en función de la respuesta. 

Una segunda implantación, más sustancial pero 
más compleja, consiste en crear una clasificación 
de los motivos de los movimientos en base a la 
cual pueda determinarse, en la fase de impre- 
sión, la totalización por tipo de operación. 

Para ello, en el formato del registro de los movi- 
mientos se ha previsto un campo de 6 caracteres 
no asignado. De esta manera, el usuario puede 
diversificar entre ellos los diferentes ingresos o re- 
tiradas, obteniendo la impresión por tipo. Al nivel 
de la introducción de datos y de preparación de 
las máscaras vídeo, la modificación consiste so- 
lamente en prever este nuevo campo, mientras 
que en la fase de impresión del extracto de la 
cuenta debe preverse la introducción del tipo de 
movimiento que se desea seleccionar, 

La metodología a seguir consiste simplemente en 
condicionar la impresión y la totalización a la 
igualdad entre el código contenido en el movi- 
miento examinado y el de selección introducido al 
principio de la rutina. 
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Balance far mili ¡ar 


Normalmente, la situación económica familiar no 
está representada de manera adecuada por la si- 
tuación bancaria. El programa que hemos exami- 
nado es el instrumento ideal para actualizar cons- 
tantemente la situación de las cuentas corrientes, 
pero no ayuda a recordar cómo se ha gastado 
efectivamente una suma retirada para satisfacer 
las exigencias de la economía doméstica. 

Por este motivo es necesario disponer de un nue- 
vo programa que pueda funcionar como comple- 
mento respecto al anterior para permitir seguir 
con detalle los destinos de las sumas retiradas de 
la cuenta corriente. 

A continuación presentamos un procedimiento 
que permite la gestión de un balance familiar (o 
de cualquier otro balance) mediante la realización 
de dos funciones principales: 


m Gestión plan de cuentas 
m Introducción movimientos de entrada y salida 


El plan de cuentas no es nada más que la clasifi- 
cación de las voces adecuadas para describir to- 
dos los posibles movimientos de entrada o de sa- 
lida. Por ejemplo, en el plan se citarán voces de 
gasto como Alimentación, Vivienda, Luz, Agua, 
Gas, Teléfono, Vestido, etc. y voces de ingreso 
como Sueldos, Retiradas de cuenta, Rentas, etc. 
A cada voz de ingreso o de gasto, además de la 
descripción «clara» introducida por el usuario, el 
programa pide que se asigne un código numéri- 


Uso del programa 


La gestión automatizada de un balance cualquie- 
ra, y en particular el familiar, debe realizarse res- 
petando una secuencia de activación de las fun- 
ciones fundamentales previstas en el programa. 
Estas funciones, enviadas a ejecución en el debi- 
do orden, controlan los flujos de dinero de entra- 
da y salida; la diferencia entre estos flujos consti- 
tuye precisamente el balance. 

Todo el procedimiento está estructurado como un 
verdadero plan de cuentas, subdividido en las 
voces de cobros y pagos. 

En el plan de cuentas se describen todas las po- 


sibles voces que generan movimientos de dinero, 


y cada voz está identificada por un código. 

Al introducir un importe, por ejemplo correspon- 
diente a un gasto, la cifra se suma al progresivo 
correspondiente al código seleccionado en la voz 
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co de uso interno. Junto a cada voz, el programa 
pide al usuario que introduzca el importe total 
previsto para dicha voz, que servirá después pa- 
ra poner en evidencia eventuales desviaciones 
en exceso o en defecto. 

La segunda función fundamental es la introduc- 
ción de los movimientos en entrada y salida, que 
representan el detalle de los flujos de dinero efec- 
tivos y que con su importe actualizarán las corres- 
pondientes voces del plan de cuentas. 

Las dos funciones permiten determinar en cual- 
quier momento el total ingresado o gastado co- 
rrespondiente a una determinada voz. 

Además de las funciones principales, el progra- 
ma contempla otras dos de carácter accesorio, 
no tan indispensables como las primeras, pero 
seguramente muy útiles: 


m Gestión previstos y comparación reales 
a Función estadística 


La gestión de los previstos prevé, como ya se ha 
dicho, la introducción inicial de un importe global 
previsto para cada voz de entrada o salida, y per- 
mite comprobar la desviación entre la estimación 
inicial (prevista) y el importe real de aquella voz, a 
medida que se introducen los movimientos. 

La función estadística sirve en cambio para evi- 
denciar las evoluciones de manera más detalla- 
da, y contiene un procedimiento para la presenta- 
ción de ingresos y pagos de manera gráfica. 


Gastos. De esta manera se tiene la totalización de 
los diferentes movimientos por grupos, cada uno 
correspondiente a una voz, con la presentación 
automática de todos los movimientos que han in- 
tervenido. Un sencillo plan de cuentas puede es- 
tructurarse como se indica en la tabla de la pági- 
na siguiente. 

Las descripciones se memorizan en los ficheros 
Cobros y Pagos. Por ejemplo, introduciendo el 
importe del sueldo de un determinado mes, de- 
berá indicarse el código 1 (de los cobros), obte- 
niendo la totalización del importe introducido en 
la voz Sueldo. En cualquier momento, pidiendo la 
impresión del plan de cuentas, puede tenerse el 
total cobrado (o gastado) después de cada voz. 
En la estructura general del programa se identifi- 
can cuatro funciones principales: 


PLAN DE CUENTAS 


Ingresos 


Gastos 


m Gestión del plan de cuentas 

m Introducción de los movimientos 
m Balance 

m Estadística 


Gestión del plan de cuentas. La función tiene la 
finalidad de predisponer los ficheros que utilizará 
el programa y permitir la introducción de las vo- 
ces de ingreso y gasto con sus códigos. 

Por tanto, está constituida por una rutina de gene- 
ración del sistema y dos voces de introducción: 
una para los ingresos y otra para los pagos, La 
predisposición de los ficheros, que se obtiene 
con la rutina de generación, deberá hacerse an- 
tes de utilizar cualquier otra función. Inmediata- 
mente después se podrán introducir los códigos 
y las descripciones de las voces de ingresos y 
pagos junto con los importes previstos, 
Realizada esta operación, el plan de cuentas 
quedará constituido. Debe observarse que no es 
necesario prever a priori todas las voces de in- 
greso y de gasto, puesto que la rutina de gestión 
permite insertar a voluntad nuevas voces (códi- 
gos) y nuevos previstos. 

El cuadro resumen de las voces y de los previstos 
puede examinarse en cualquier momento pidien- 
do la impresión del plan de cuentas sobre papel 
o en el monitor. 


Introducción de los movimientos. Cada movi- 
miento de ingreso o de gasto correspondiente a 


una de las voces previstas en el plan de cuentas 
puede introducirse en cualquier momento acti- 
vando esta función. La introducción de cualquier 
movimiento afecta a dos ficheros diferentes: el de 
Movimientos, en el que se registran los datos del 
movimiento (fecha, importe, descripción) y el fi- 
chero que corresponde a la voz del plan de cuen- 
tas (Ingresos o Pagos), en el que se totaliza el 
importe. El contenido del fichero Movimientos se 
utiliza para desarrollar los procedimientos esta- 
disticos para el análisis de las evoluciones. 


Balance. Utilizando los datos contenidos en el 
plan de cuentas (voces de ingreso y de pago e 
importes previstos), esta función presenta las en- 
tradas, la salidas y las desviaciones con respecto 
alos previstos. El balance puede pedirse en cual- 
quier momento, y constituye el medio para com- 
probar la situación económica familiar real con 
respecto a la prevista. 

Las desviaciones se indican con el signo — si el 
importe previsto es superior al real, y sin signo si 
sucede lo contrario. 


Estadística. Este módulo permite activar proce- 
sos estadísticos sobre los datos del fichero Movi- 
mientos. El más importante es el del histograma 
que representa anualmente el flujo de dinero de 
entrada y de salida. La representación es de tipo 
porcentual: el importe máximo mensual movido 
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ESQUEMA DEL FLUJO DE DATOS 


E] 


Fichero movimientos T 


E 


El balance proporciona: 

- la diferencia entre Ingresos 
reales y Gastos reales 

- la diferencia entre Previstos 
y Reales 


a 


de entrada o de salida se representa con una co- * lecciones sobre los importes introducidos en una 
lumna de altura 100, mientras que los otros se llave de búsqueda, pero este aspecto quedará 
presentan proporcionalmente. más claro en la secuencia fotográfica que ilustra 


El módulo estadístico también permite activar se- el funcionamiento del programa. 
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Foto 1. Al principio de la ejecución, el programa 
advierte que es necesario insertar la cassette o el 
diskette que contiene los datos, o que está destinado 
ahacerlo. 

Entonces debe retirarse la cassette del grabador o el 
diskette de la unidad de disco utilizado para cargar el 
programa y sustituirlo por el soporte magnético que 
contiene los datos. 

Esto es necesario porque, de otro modo, el programa 
no podría leer los datos archivados durante empleos 
anteriores. 

El sistema espera que el usuario, pulsando una tecla 
cualquiera, indique que ha sustituido el soporte 
magnético, 


Foto 2: Menú principal. El programa ha presentado 
el menú principal del procedimiento, en el que hay 
relacionadas todas las funciones activables. 
Tecleando CTRL + Y se presenta el cuadro de ayuda 
ya descrito en el programa «Cálculos económicos», 
que contiene las instrucciones para desplazar el 
indicador y para seleccionar la voz deseada (tecla f1). 
La primera voz a activar es la 1, «Gestión del plan de 
cuentas», que contiene la rutina de generación del 
sistema. 


Foto 3: Gestión del plan de cuentas. Activando la 
voz 1, el programa presenta el menú secundario que 
se ve al lado. Las voces 1 y 2 (Ingresos y Gastos) 
permiten la introducción en el plan de cuentas de las 
voces de Ingresos y de Gastos (códigos y 
descripciones). 

Sin embargo, en esta etapa, primero hay que generar 
el sistema utilizando la voz 3. La selección se obtiene 
pulsando simplemente la tecla que tiene el carácter 3. 


Foto 4: La generación del sistema consiste en la 
apertura y predisposición (borrado) de los ficheros 
utilizados por el programa para archivar los datos 
introducidos. Si esta función se activa por error en una 
cinta o diskette que ya contiene datos útiles, se corre 
el riesgo de perder todo el contenido del archivo 
gestionado por el programa. Por este motivo, antes de 
que el sistema proceda, pide confirmación al usuario 
de la operación pedida. Si este último se da cuenta de 
que ha activado la generación por error, puede anular 
la elección contestando NO. 


1 
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Foto 5. Terminada la operación de predisposición de 
los ficheros, el programa presenta todavía el menú 
secundario de la foto 3, pero ahora puede utilizarse 
para seleccionar las voces 1 o 2 (introducción de las 
voces de Ingresos o Gastos). En el caso actual, el 
usuario ha seleccionado la voz 1 (Ingresos) y el 
programa ha presentado en respuesta el cuadro 
visible al lado, en el que se pide que se especifique 
con qué código (comprendido entre 1 y 9) se quiere 
designar la voz de Ingresos que se va a introducir. 
Puede teclearse una cifra comprendida entre 1 y 9, y 
después pulsar f8. 


Foto 6. En respuesta a la introducción del código (en 
el ejemplo 1), el sistema presenta la máscara de 
introducción de la descripción y de los datos 
asociados al código. Si el código ya se ha utilizado 
anteriormente, la máscara contendrá la descripción 
asociada al mismo en aquella ocasión y los datos 
correspondientes. 

En el ejemplo, el código 1 aún no se había utilizado, y 
la máscara de introducción está vacía. 


Foto 7. El usuario está introduciendo descripciones y 
datos de la primera voz de Ingresos plan de 

cuentas. La descripción es «sueldo», y el total 
previsto en el período a que se refiere el balance es 
de 3 000 000. 

El campo «tot. real» de momento está vacío. Se trata 
de un campo únicamente de presentación (es decir, 
en el que no se permiten introducciones) destinado a 
contener la suma de los ingresos introducidos bajo el 
código 1 utilizando la voz Movimientos. Como no se 
ha efectuado ningún movimiento, el campo está 
vacío. 

En la última línea, el programa presenta 
automáticamente la desviación entre el total previsto y 
el real: para respetar las provisiones de balance debe 
introducirse 3 000 000 bajo el código 1 (sueldo). 


Foto 8. En esta fase, el usuario ha completado la 
introducción de las voces de ingresos y ha pasado a 
la generación del plan de gastos. En el monitor 
pueden verse las descripciones y los datos asociados 
al código 4 (auto y transportes). 

Después de haber tecleado el dato a insertar en un 
determinado campo, debe pulsarse RETURN para 
posicionar el cursor en el siguiente campo (si el dato 
llena completamente el campo, el cursor se 
desplazará automáticamente). 

Completado el campo «tot. prev.», el programa 
realiza los cálculos necesarios y posiciona 
nuevamente el cursor al principio del primer campo. 
En este momento, la máscara está completa, y para 
transferir los datos a la cinta o al disco hay que pulsar 
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Foto 9. Completada la generación del plan de 
cuentas puede utilizarse la voz Movimientos para 
archivar las operaciones de Ingresos o Gastos. 
Seleccionando esta voz en el menú principal, el 
sistema presenta este menú secundario, en el que se 
pide al usuario que indique si va a introducir un 
movimiento o desea tener la presentación de los 
movimientos introducidos anteriormente. En este caso 
se selecciona la voz 1 (introducción). 


Foto 10. El programa pregunta si se trata de un 
movimiento de ingreso o de gasto. Como se desea 
registrar un movimiento de ingreso, y precisamente 
bajo el código 1 (sueldo), se responde a la pregunta 
pulsando la tecla 1. 


Foto 11. En el monitor ha aparecido la máscara de 
introducción de los movimientos, en la que el 
programa pide el nombre de quien ha realizado la 
operación, el código del plan de cuentas al que se 
refiere la operación, la fecha, el importe y la 
descripción del movimiento. 

El cursor está posicionado al principio del primer 
campo. 


Foto 12. La máscara se ha completado. La voz a la 
que se refiere el movimiento es la 1 (sueldo, ver foto 
7). El cursor está posicionado ahora al lado del último 
carácter tecleado. Para introducir efectivamente el 
último dato en la máscara debe pulsarse la tecla 
RETURN y después, para transferir los datos a la cinta 
oal disco, la tecla funcional f8. 

Una vez realizada la transferencia, el programa 
volverá a presentar automáticamente la máscara de 
introducción (foto 11). 

Al final de la fase de introducción se podrá volver al 
menú principal pulsando la tecla funcional f7. 
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Foto 13: Balance. Después de haber registrado otros 
movimientos de ingresos y de gastos se ha vuelto al 
menú principal y se ha seleccionado la voz Balance. 
Después de una fase de lectura de la cinta o del 
disco, en el monitor aparece la primera página del 
balance, en la que se presentan los totales previstos y 
reales (obtenidos de la suma de los movimientos 
registrados) correspondientes a las voces de ingresos 
y gastos. Pulsando una tecla cualquiera puede 
pedirse la presentación de la segunda página. 


Foto 14. La segunda página contiene la situación del 
balance (diferencia entre ingresos y gastos reales) y 
las desviaciones de los importes reales de ingresos y 
de gastos de los previstos. 

Todos los campos contenidos en esta máscara y en la 
anterior sólo son de presentación. 

Pulsando una tecla cualquiera puede volverse al 
menú principal. 


Foto 15: Estadística. En el menú principal se ha 
seleccionado la voz Estadistica, en cuyo ámbito el 
programa realiza algunas funciones de búsqueda y 
de presentación de datos, también en modo gráfico. 
Después de la selección, el programa presenta un 
menú secundario en el que pide que se indique si se 
va a efectuar una operación de selección sobre los 
datos o si se desea presentar el histograma que 
representa la evolución del balance familiar. 


Foto 16. En este caso se ha pedido una operación de 
selección. El programa pide que se introduzca el 
nombre de una de las personas que han efectuado 
movimientos para poder presentar los ingresos y los 
gastos atribuibles a dicha persona. Pulsando 
simplemente RETURN o «+ en la versión commodore, 
se sobreentiende que el análisis debe realizarse 
sobre todas las personas en conjunto (en la práctica 
se pide la impresión de todos los movimientos 
registrados, desde el primero). 
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Foto 17. Una vez recibida la respuesta pedida 
(nombre o tecla RETURN), el programa pregunta 
sobre qué movimiento debe realizar el análisis: 

ingresos, gastos o ambos. 


Foto 18. Una vez seleccionados todos los nombres 
(RETURN en la foto 16) y todos los movimientos (voz 3 
en la foto 17), el programa lee de la cinta o del disco 
todos los datos que ha registrado (ficheros 
INGRESOS y GASTOS) y los presenta en el monitor, 
Los movimientos registrados son más de los que 
caben en la pantalla. Para evitar el scroll (desfile), el 
programa detiene la presentación, que espera la 
pulsación de una tecla cualquiera para continuar. 
Los movimientos de ingreso se presentan en verde; 
los de gasto en rojo con el signo menos delante. 

Al lado de cada movimiento hay la fecha y la 
descripción introducidas en su momento. 


Foto 19. En cambio, esta foto muestra la respuesta 
| del programa cuando se ha introducido el nombre 
«juan» en la máscara de la foto 16 y se ha 
seleccionado la opción 3 en el menú de la foto 17, De 
los movimientos presentados anteriormente sólo se 
han extraído los efectuados por Juan. 


Foto 20. En este caso, en el menú de la foto 15 se ha 
pedido la activación de la opción 2 (gráfico). 

El histograma que se ve en la foto es presentado 
automáticamente por el programa después de la 
lectura de los datos en la cinta o en el disco. Los 
cobros y los gastos se presentan en columnas verdes 
y rojas, mes por mes. La escala de las ordenadas es 
de tipo porcentual. 

El hecho de que la columna verde correspondiente al 
mes de febrero llegue a la altura 100 significa que en 
este mes se ha registrado para los ingresos el máximo 
importe mensual. Las otras columnas tienen una altura 
calculada proporcionalmente; por ejemplo, en enero 
los ingresos han alcanzado el 75% del total de 
febrero. 


_ Ediciones Forum 
Estadistica 


<1> INGRESOS 
<2> GASTOS 
<3> TODOS 


sueldo enero 
e 


sueldo marzo 
sueldo marzo 
alquiler 
alquiler 

alquiler o 
supermercado 
mecanico 

viaje a francia 
vestidos de noche 


OOOO 


puise una tecla para continuar 


iler enero 
ler febrero 
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Foto 21: Impresión del plan de cuentas. Una vez se 
ha vuelto al menú principal se ha pedido la impresión 
del plan de cuentas. 

Esta operación permite examinar en su conjunto las 
voces de ingresos y de gastos previstos en el plan, 


indicando a su lado el importe total acumulado hasta : INTRODUCIR OPCION: 

el momento para cada voz. e 

El programa pregunta si se quiere limitar la impresión <1> EN VIDEO 

sólo a las voces de cobros o de pagos, o si se desea e <2> EN IMPRESORA 


comprobar el plan de cuentas en su totalidad. <3> VUELVE AL MENU 


CIEN y 


Foto 22. Se ha pedido la impresión total. El programa 
pregunta si la salida debe dirigirse a la pantalla o a la 

impresora. 

En los casos como este debe prestarse atención a 

no pedir la salida en impresora si ésta no está en línea SN 
(porque no está o no está en marcha). Un error de INTRODUCIR OPCION: 
este tipo determinaría la inmediata detención de la Z1>INORESOS 
ejecución. Sin embargo, no existe ningún peligro de 


ñ ñ <2> GASTOS 
perder los datos introducidos. 


<3> IMPRESION TOTAL 


Foto 23. En el primer cuadro del plan hay las voces de 
ingreso, cada una al lado del código al que se ha 
asociado en la fase de generación. 


| 


IMPRESION TOTAL ingresos 


Para cada voz se ha indicado el importe total de los | ALO 855000 
movimientos correspondientes a la misma. rentas HA 
Los códigos no utilizados pueden emplearse en intereses HI 
cualquier momento para generar nuevas voces. Para provisiones 100000 
ello basta con pedir en el menú principal la voz 1, ¿N otras entradas HA 
seleccionar en el menú secundario las voces 1 0 2 MN AA 


(Cobros y Pagos) y continuar con el procedimiento 
normal de generación (código, descripción e 
importe). 


HHHHARIA 
HH 


Foto 24. Después de la impresión de la primera parte MALA AA CAS 
del plan de cuentas (voces de ingreso) puede IMPRESION TOTAL STE 
obtenerse la segunda parte (voces de gasto) 
pulsando una tecla cualquiera. vivienda 125000 
vestido 150006 
alimentacion 30000 
auto y transportes 500060 
estudio y cultura HELRERDEnd 


viajes y vacaciones 200000 
varios TO 
FAME IEEE HAD ERA RR DOS 
PODER CEARIO ana eannS HHRRHAAN 
pulse una tecta para continuar] 
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A A 
Los listados / Versión Commodore 64 


1 REM RRA RARA 

3 REMO. BALANCE FAMILIAR. 4 

S REM + 

Y REMO VERSION COMMODORE 64 * 

O REM AIARRRIRRRRARA 

10 W$clo="" PULSAR LA 1":s(2)="Y PULSAR A 

11 POKE 208,225 

43 E5% Ao PRINCIPAL dd 

13 REI 

13 DIM DHS$(S>,TL$(4),50$: 123,41 12).45(12),N(22) 

20 DIM ESC20),TPC200,LEC20))NDC20),0XC20), 074020), DXC20),DYC20) 

21 DIMAAS: 1905 

22 DIM TFC15),DÍC20),Y0FC20) 

23 DH$(1>="AINGRESOS": DH$(2="AGASTOS..." 

24 BLE=" "ERSSMEMIPDS=". MAS NGS= MB SUS =p GIVES" HOL="0JU SLE=" 
235 USSSCHRS(133) :NW=6:XC=7 :C=6:52=2:POKE 650,128 

26 PRINTHOS: GOSUE1300*PRINTHOS:PRINTCHR$C142) REM dk MENU Ak 

27 1F 0F2=6 THEN S71S64738 

30 GOSUB20000 

35 FOR I=1 TO 15:READ TFC(I)>:NEXTI 

100 REM 

110 Re="" 

126 ON 0P2 GOSUB 12009,8000, 5000, 15000, 14000 

130 REM E 
150 GOTO 26 he 
LO REIR ARA RR 

LO RENA RARO SORA RR IO: 

1301 REM + MENU. PRINCIPAL * 

LDL RENA ARIAS RR RR 

1303 LW=-1:POKES3221,6:POKE33280, 14 

1305 Us=""SENU —":0P2=0:Y0%C0PZ)=" MALA AS LAR GOSUB 7000 


a 


1315 <S=S0248: POKESS+21,1:POKE2040, 13 
ESTORE 


1318 FOR 16 TO 62: READA:POKES32+1.+.M:MEXTI 
1321 POKESS+39,1:C1=59:02=111 
1323 COSUB 1363 
1324 GOSUB 1396 
1327 GET_0P2$:1F .0F2$="" THEN 1327 
1333 TF 0P2$=61U$ THEN C2=02+16:0P2=0P2+1 'GOSUB1363 
1336 I£ 0P2$=SUS THEN C2=C2-16:0PZ=0FZ-1:G0SUB1363 
1339 IF OP23=1/5% THEN 1321 
1342 IF ASCCORZ45=25, THEN GOSUE 1456: G0T01305 
1345 GOTO 1327 
1363 REM_R 
1366 TF C2C111 THEN C2=02+16*0F2=0PZ+1 RETURN 
1362 1f£ C271%1 THEN C2=C2-16:0F2=0P2-1: RETURN 
1572 POKESS+01*POKESS+1,C02 
1375, RETURN 
1378 REM +4 
331. X3AC: =D ZASZAV 
1384 GOSUB 11000 
1327 PRIHNT"0A"!: YOECOPZO 
1390 FOR T=1 TO 1000: NEXTT 
1322 EpRE3S +21, PEEK(S3+21>AND254 
1393 RETURN 
1394, REM ARA 
REM 


1399 FOR. J=1..TO.MY:READ Y0$(J>:NEXTJ 

1400 REM RRA dd dd 

1405.FOR II=1 TO NY 

1408 X=%CW=TTRSZH YC 

1411 GOSUB11000 

1414 PRINT"A";5VOSCIT) 

1417 NEXT 11 

1420 RETURN 

1425 DATAG.6,0,0,96,9,0,144,0,3,32,9 

1427 DATA4,64,0,2,143,252,17,112,2,224,129,252 

1422 DATAO,£3,0,0,65,9,0,/63,0,0.31,0 

1431 DATAB,33,0,0,31,0,224,63,0,16,81,0 

1433 DATA1S,30,0,9,0,0,0,0,0,0,0,0,0,0,0 

1444 DATA"1- PESTION PLAN DE CUENTAS " 

14453 DATA"2- OY IMIENTOS " 

1446 DATA"23- |ALANCE " 

19447 DATA"4- "STADISTICA." 

14438 DATA"S- -MPRESION PLAN DE CUENTAS " 

1459 DATA"B- IN DE TAREA" 

1456 REM HARO AYUDA MENU dodo 

1452 PRINTCHR$(147):PRINTCHR$(14) 

1462 POKESS,255:POKESS+1,115:POKESS+39,6 

1463 POKESS+40,6:POKESS+41,6 

1468 POKESS+21,7:POKE2040, 13:POKE2041,14:POKE2042,15:POKESS+29,4 
1471 FORN=4T062:READO : POKES324+H.0:NESTH 

1474 FORN=0T062:READO:POKES96+N,0: NEXTN 

1477 FORN=0T062:READO : POKE966+H.0:NEXTN 

1430" POKESS+39, 1:POKESS+40, 1'POKESS+41,1 

1433 POKE 33281.6 

19285 PRINT ñ——————————— 0 A MAA 
1452 FOR 1=1 TO 15:PRINT"M1 15: NESTI 
1432 PRAT > _—_—_—_AO—> A ———_—_——__—— 
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PRINTCHR$C195 :PRINTTABC?) "MIMI AT ALT 
POKESS+2,255:POKESS+3. 145: PORESS+4, 245: POKESS+5, 180 
PRINT"HIBANDESPLAZA ABAJO: * 

PRINT"HMBBDESPLAZA ARRIBA: " 

PRINT"MÉBBINTRODUCE OPCION ELEGIDA: " 

PRINTTABCI “TAO A LA AA AMM MANS 
GET R$+IFR$=""THENIS13 

FOKES5+39,6:PRINT"J": RETURN 
DATAS,255,192,12,0,32,16,16,16,32,56,8,32,108,8 
DATR64,40,4,64,40,4,64,0,4,93,206,2238,81,72.164 
DATAS1,206.,223-381,66,164,93,46,148,64,0.,4 
DATRE4,45,4,64,40,4,32,108,8,32,56,%,16,16,16 
DATA12,0,32,3,255,192 

DATAS, 255,192,12.0,32,16,32,16,32,120,3,32,192,8 
DATRE4,120,4,64,32,4,64,0,4,93,206,228,81,72,164 
DATAS1,206,223.81,66,164,93,46,143,64,0,4,64,16,4 
DATRS4,120,4,32,12,3,32,120,8,16,16,16,12,0,32,3,255,192 
DIATAO, 0,0, 7,255,224,24,9,24,96,0,6,123,.0,1,129,1,129 
DATA134,131.129,132,2,129,132.0,129.142.0,125 
DATAL32,6,129,132,0,129,132,0.129,123,0,1.26.0,6 
DATR24,0,24,7,255,224,0,0,0,0.0,0,0,0,0,0,0,0 
REM.FINE DEL MENU FRINCIPALE 


REM 
ES FRA PRESENTA MASCARA 444 
E 


ES J=1.T0,.NUC 

Ar="" 

SEDACJA DW CJ>:GOSUB11000: PRINTDICIA 

IF TPCOTS<OS AND TPCJ><>54 THEN 2060 
RECACIA FCC JO: GOSUB11000:FRINT"A"¿BGCJO 
GOTO 2130 


Mi=LCCI> 5 NZNDIJ IF TP<J)=1 OR TP(J>=S2 THEN C$=NSS :GOTOZ06S 


CF=AS+ 

IF Hi=1 THEN A$=C+:G0T0 2095 

FOR T=1 TO N1-N2-1A$=A$+C0$ NEXT] 
IF. .N2=0. THEN. AS=A3+0$ GOTO 2095 
AS=A$+PDS 
FOR-1=1.T0.N2:A$=A$+"bB':MEXTI 
ASCRCIO =C CT) GOSUB 11000 
PRINT "MUGAS; "a" 


BLog" 

FOR K=1 TO Mi-N2-1 
IS 

NEXT K 

TF N2=0 THEN BSCJ)=BSCIO+NSE GOTO 2130 
BSCJI=BSCIOAPDS 
FORK=1T0N2"BSCJ)=BFCJI)FNSS*HEXTK 
NEXT.J 

RETURN 

REM 

REt 

REM R* DATA ENTRY 4% 

REM 

REM 

J=1 

REM 

NC=J:2=CX(NC> 5 WC HONCI 

Cc=1 

GOSUB 3240 


IF FS=9 THEN-RETURN 
IF FS=0 THEN 3100 
IF FS>4 THEN 3219 
GOTO 3120 

REM 

AE) CARACTER 


J=J+1:1F JÓNUC. THEN. 3030 
GOTO 3040 

ON FS GOTO 3130,3150.3170,3190 

TF J>1 THEN Ale by ta 3040 

Es=08: J=NUC:GOTO 

TF J<NUC THEN Aids Sooro 3040 

FS=0:GOTO 30230 

IF CCCLOCIO THEN S=1*CC=CC+1:%=%+1:GOSUB 11000:G0T0 3060 
FS=0:60T0 3100 

IF CC>1 THEN S=-1*CC=CC-1%=%-1'60SUB11000:G0TO 3068 
ESAeAColo 3035 


IF -FS>8 THEN FS=0:G0TO 39060 
1F FS=S THEN FS=5:GOTO 3108 
RETURN 

REN 

REM 4% LECTURA DE 1 CAMPO +4 
REM 


F3=b 

IF TPONCI=4 THEN RETURN 

IF TP(NC)=2 THEN GOSUB. 9000: RETURN 

IF MIDSCESCNCI,CC, 19=PDS THENX=X+S*CC=CC+S 
GOSUB 11000 

GET A$:IF AS<5"" THEN 3338 
GOSUB11000:PRINT" am"; :GOSUB11000:PRINT"A"¿MIDS(ES CNC, CC, 15 
FOR T=1 TO 45 "NEXT T 
GOTO 3320 


TFASCCAS)=190RASCCASI=200RASCCAS)=14 70RASCCAS)=148 THEN 3330 


FRINT"Ma";A$; 

CA=ASCCAS 

FOR -1=1 TO 15 

IF TFCIO=CA THEN FS=I*1=15'GOSUB3E36* RETURN 


3375 1F ae THEN RETURN : 

33200 NEXT 

3390 1F PANDO! THEN 3454 

3400 JF CA=43 OR CA=3É6 DR:C RS =43ANDCA.=5 72 THEN34 20 

3410 6070-3330 

3920 1F CAX746 THENS450 

3930 MOTO 4E7O 
Y ps m1 


IF COSLCCHCS THEN PETURH 
PESCA 1 GOTO 3310 


REM 
REMAR TRANSFERENCIA AL BUFFER 4% 
REN 


IF -00=1 THEM Sug="" coT 3550 
SHY=LEFTFCEFONCA. CL 1> 

TE DESLEONCA THEN DEF="" GOTO SSI 
LI CL DEIS IGHTECESCH E 


pal LIE 

REM 

5630 ERM 44 COMANDOS ++ 

ECM 

Ga TF FS25 THEN 3710 
Y RETURN 


2 THEN CUSUE 13000 EE TUE 

2 THEM GOSUB 4080 RETURN 

a 30% THEM PETUEN 

23734 0N-FS=9 GOSUE -3740,3510 E 
3029 RETURA 

arre 

REM «+ INSERCION 44 

En 


3770 IF CC=LCCNCI THEN FETURN 

3720 TF CC=1 THEM 2N3=""G0T032800 

3790 SH$=LEFTSCESONC),CC-1> 

32804 HsLCONCI=EC+H1 > DESSRIGHTECBECNCO MO 
3320 CS$=BL$ 

3930 AF=SN$+C4+DES 

3040 EA AA 

3050 MRSA =p 

3360 4=CXUÚNCO EY ONCO GOSUE 11090 
3870 HERRIA 

33390 FEM 

2820 PRINT BS(NC):3==1 

3000 1F RIOHTECBICNOO, 19=PDI THEN 373b 
3905 RETURN 


pa 
E 
NE 
a] 
To 
. 
a 


REM 
3910 REM 44444 BORRADO 44444 
REM 


3930 1F TPONCICOL THEN 2950 
3940 1F MIDSCESONC) 2, 1)SPDF AND CC=1 THEN RETURN 
3959 1F 20<1 THEN-RETURN 
2560 1F COSLCONC) THEN DES="":GOTO 3930 
2970 MSLCONCIS00 DEFSPIGATECESONCION) 
3980 SNE=LEFTF(ESCNCI.CO-1) 
3990 1F TECNCI=1 OR TPCNC)=2 THEM) CS=MEF GOTO 4010 
4000 C4=AS$ 
401 ESCNOI=SNEFDERCS 
AZ St 
NSCXENCI SD MONCI:GOSUB 11008 
4040 NR 
4050 PRINT EFÚNCIS=1 "RETURN 


REM 
4080 eton A 
En 


4034 IF LECMCI=1 THEN RETURM 

4095 NisLC<HC>-EC+1 

4087 IF CO=1 THEN EF(NC="":G0TO4100 
4090 EXCNCO=LEFTSCBFONCO, CC 1) 

4100 TF TRCNC=1 OR TPOMCI=2 THEN 4150 
4110 FOR I=1 TO Mi 

4120 IO 

4130 MEXT 

4140 G0TO ara 

4150 FOR I=1 TO? 

4160 Deere Se eprne) 


4180 IF RIGHTSCBE NCH, 10=PDS THEN BRCONCI=BLE+LEFTSCEFCONCI) LEONCI=10 
4190 A=CRCMC) MSC WENO GOSUE 11000 
4218 PRINT ES(NC) :RETURH 
4220 REM 
4270 REM 
4230 REM 
4290 SHP=0 
4300 1F (C=1 OR CC=LOCHCO THEN SWP=1 FETURH 
4319 FOR 1=1 Tú LO CNCA 
4320 [F MIDICEFCHC>. 1 19=BLI THEN ISLECNCA SHP=1 RETURN 
4330 HMEXT- IP RETURH 
O REM 


1] 
E 
(s) 


4: 13=9"T14=B 
2THENRG=1 SUB £006 
"NU OR REF THEN: RETURN 


=Ja E 700t 
SO? FOR K=1 TO 9 
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5030 Ti=T14+YALCMIDECERE(K), 21,8): T2=T24HYALCMIDECBESCKO., 29,33) 

Su66 T3= a A RE 21,89): 14=T4+YAL(MIDICOCS(K 20,850 

5065 NEXT 

5071 FED ZSTRECTIO TLEC2)=STRSCTZ) *TLEC3)STRECTZ) TACA) =STRECTA) 
5072 FOR J=1 TO 4:L=9=LENCTLECIHS 

5073 IF L<=OTHEN 5076 

5074 FOR E=si TO L:TLéCI)=CHRECSLIATLECIO NEXT E 


5076 NEXT J 

5078 X=7:Y=8:GOSUB11000:PRINT"<E+ 1-00 :" 

5079 PRINTTREC?S"ATOTAL PREVISTO : "sTLS$C1>:PRINTTAEC?) "TOTAL REAL 
(2) 


5090 X=7:Y=13:GOSUB11000:PRINT" El fol Fe :" 
5085 PRINTTABCR"ATOTAL PREWISTO 3 "¿TLC PRINTTABC?> "TOTAL REAL 


5090 X=13:Y=19:G0SUE 11000: "IM UNA TECLA" 

5095 GET R$:1F R$="" THEN 509 

5100 PRINT HO$:GOSUB 7000 

3110 X=7:=8: GOSUB11000:PRINT"1 AS 07 TL IMALA 
s115 X=18: Y=4+2:GOSUB11000:PRINT"A" 5 T2-T4 

3120 %=7:Y=+3:G0SUB1 1090: PRINTS TOA 

5122 TLSCUISSTRECTAS Tio: TLECI)=STRECTA= T3) 

5125 FOR J=1 TO 2 

5127 L=10-LENCTLECIAS 

5138 IF L<=0 THEN 5135 

5135 FOR K=1 TO L:TLECI)=CHRECIZIATLECIO NEXTK 

5140 NEXT J 

5145 4=14:1=4+2:60SUB11000:PRINT"2./l-07e A 
5150 Y=4+2:G05UB11000:PRINT"Nl 40 Mé :a";TLS 

5200 X=3:W=21:G0SUB11000:PRINT"NPULSE UNA TECLA PARA “OLVYER AL MENU" 
5220 GETAS: IFRS=""THENS220 

5250 a 

£000 R 


6091 REN HARE GESTIÓN CINTA 444 
£062 PRINTHOS 

6019 PRINTCHR+014) 

6015 Rg="" 

6030 X=2:Y=17:GOSUB11000'PRINT"ADSICIONAR LA CINTA DE DATOS" 

6035 Y=21:G0SIJB11000:PRINT"SIECHO?  (AS=CONTINUA, LAR YUELYE AL OMENDO" 
6040 CETR$:IFR$=""THENGO4O 

6050 IFR$="-"ORRI="N"THEN RETURN 

6060 IFREO"S "ANDRE" "THENGOSS 

6070 X=2:Y=19: GOSUB11909:PRINT" 2" ¡LI5CRG> 

6080 4=0:Y=0'GOSUBL1OGO PRINTS" 

6099 ONRG GOTOS200,6400 


62156 OPEN 1,1,0, "INGRESOS" 
6215 FORI=1T09 

6220 INPUTR1,BETCI> 
6230 NEXTI 

6240 CLOSE1 

6230 DFEN 1.1.0, "GASTOS" 
623539 FORI=1T02 

6260 nn 9 0) 

6270 NEXT 

6230 Clases 

6306 OPEN 1.1,0."M04" 
6310 FORI=6T0100 

6320 INPUTRH1.ARICIO 


6410 OPEN 1,1,1," INGRESOS" 
6415 FORI=1T09 

6420 PRINTH1., BEST 
5430 NEXTI 

6448 CLOSE1 

6450 OPEN 1,1,1, "GASTOS" 
6435 FORI=1T09 

6460 A cescIo 
6478 NEXT 

6420 CLOSE 

65006 OPEH 1,1,1,"M0Y" 
26510 FORI=OTOL0 

6328 PRINTH1L, AECI 


6550 PRINTHOS RETURN 

TODO REM OAAAERAERERA RADA 
7001 REM 44 GA LOS cier 
TOD2Z REM ARREPEERIRRAAA A 

7003 L=LENCNOFCOPZ3 3: Les RIONTECVOHOPZ), L:1F 0P2=0 THEN 7065 
20 UES"AOZ "+STRIECOPZO 

7005 PscBD-LI2 PES FORK=1TOR» PSSPG+" US NERTK 

7006 PRINT"S"; PRINTOHR+(14) 


7048 PRINT"MER Er... TDICIOMES DRUM 4.4," 
Y011 ERINT'MAR "¡UF " lol 
vo12 PRINT"Mam PE » 
vo13 1F OP2=0 THEN PRINT"5S q"; S 


7015 PRINTS rot Pz 
25 m Hb! 


35 
UBB PRIVA AA A A 
ISUBIIO00 PRINTER 


: "STLS 


A 


7035. IF 0F2=0 THEN RETURN 

7040 ON OPZ GOTO 7030.7060,7110.7110,7110,7118 

7050 LY=15:G09UB20000:NUC=5:GOTO769B 

7060 L=55: GOSUB209090: NUC=7?:GOTO7099 

7080 REM ANNA CASONA ACA 

7090 FOR I=1 TO NUC:READ D$CI>:NEXTI 

7095 FOR I=1 TO NUC:READ TPCI2, LED, NIC) DACIO DCI CRC ECT 


R 
3001 REMARA MOVIMIENTOS dk 
8002 IFS7<>2THEN RG=1:G0SUB 6090 
2003 IF R$="N" OR R$="/" THEN RETURN 
2004 PRINTHOS:GOSUB 7000 :%=4:Y=6:G05UB11000*PRINT"35/1 775 - MAT" 
8005 %=12:Y=9:G0SUB11900:PRINP"ALEON 3/1 1 07" = +2: GOSUB1 1090 
2006 PRINT"EK ARDE NTRA" 0142 G0SUB11000 PRINTEC ADA TAS ALT 
3007 X=16:Y=Y+2:GOSUB11000:PRINT" ELIJA"; 
2003 GETOS: IFO$<>""THEN 8011 
28009 X=22:60SUB11000:PRINT" QU?" :GOSUB11000:PRINT" " 
3019 GOTO 3003 
2011 O=YALCOS$>:1F 092 THEN 9008 
8012 IF Q=2 THEN 28600 
8013 1F 0=0 THEN RETURN 
8015 PRINT HO+ 
£016 GOSUE 7009 
2017 =2:Y=6: 60SUB11000:PRINT"351175- MEP Y=4+3:%=12:G0SUB1 1000 
2018 PRINT"ECALION +71 -0N0":Y="4+2: GOSUB1 1000 
2020 PRINT'MCOAIDOS 1441570": Y=+2:G0SUB11000 
8025 PRINT"MOBEONR XD AL 7/05 X=16:Y=4+2:G0SUB11000:PRINT" MELIJA"; 


2030 GETSELS: IFSEL$<>""THENSOSO 
8035 X=22:60SUB11000:PRINT" 30?" :GOSUB11000:PRINT" " ES 
8040 GOTO 2030 


2050 SEL=WAL(SEL$>:1F SEL=AM THEN 8004 
2055 IF SEL>3 THEN 8030 
8068 PRINTHOS:X=7:Y=6:G0SUB11000:PRINTDH$(SEL):GOSUB 7098 
8070 RE=WALCARSCO))+1 
3088 IF REC1OO THEN 3100 
8085 PRINTHOS:PRINT"33EL FICHERO DE DATOS ESTA AGOTADO" 
$087 PRINT"»PULSE UNA TECLA PARA VOLVER AL MENU" 
38088 POKE 198,0:WAIT 198,1 
8090 RETURN 
3109 REM 
S105 B$(4>=SL+ 
8115 GOSUB 2000 
5120 GOSUB 3004 
8125 IF FS=7 THEN RETURN 
8126 IF FS=9 THEN 8060 
38127 IF FS=6 THEN 8115 
8130 A=ASC(LEFTS(BG(7),1)> 
8131 IF A=35 OR A=32 THEN GOSUB 9159:G0TO 8115 
8132 N=WAL(BL(2)): IFN<1 THENGOSUE9150:60TOS115 
38133 IF VALCBS(6))=ATHENGOSUB21S0:60T08115 
8134 IF YAL(B$(3)7331 OR YAL(B$CS))>12 THEN GOSUB 9150:G0TO 8115 
8135 IF SEL=1 THEN B$(8)="1":60T08140 
8137 B(2)="2" 
23140 AASCRES=BEC1 ABC 2 ABC ABE ABARCA BCS) 
8145 IF SEL=1 THEN s160 
8147 CFC1)=LEFTECOCFCN), 20): 05(29=MIDFCCOSONO 21,8): 04(39=MIDS(CCSCON), 29,8) 
8150 C=WAL(C$C3)):C1=YVALCBECE)) :C2=04+C1 :C9(3)=RIGHTS(STRIECCZ), E) 
8153 C3=8-LEN(C$(3)) + IFC3=MTHENS1S7 
8155 FOR K=1TOC3:C$(3)=CHRECI2)4CF(3): 5 
8157 COS$(N)=CFC19+C$C2I4C0$C3) :GOTOS1E! 
8160 CSc1=LEFTS+(BESC(N) 20) :09(2)= MIDSCEBSC 21 8):0$(3)=MIDSCBBSC(N), 29,8) 
8165 C=WAL(C$(3)): TT c2=0+C1 
8170 CS$(3)=RIGHTSCSTR$(C2),8 
8171 C3=8-LEN(C$(3):1F baso. THEN 8175 
8172 FOR K=1 TO C3:C$(3)=CHREC32I+HC4C3) :NEXTK 
8175 ARA 
8180 ARS(D)=STRECRE> 
8185 08=2:60SUB12300:REM OPCION 
8190 IF SEL<O3THENSO6A 
8195 RG=2:GOSUBGODO 
8197 IF R$="N" OR R$="/" THEN RETURN 
50TO03004 


REM 
E IMPRESION DE LOS MOVIMIENTOS 


8200 
2590 
2600 
2601 Ri 
2602 OPENS, 4:PRINT HO+$:GOSUB 7090 

pnl X=12:=9:GOSUB11000:PRINT"BALEDA Y TT 142: G0SUB1 1000 
2606 

2608 

8610 

8612 

8615 


ERINT EROS Y ALTA" Y 142 5G0SUB1 1000: PRINTEC APM ALT 0" 
=+3:%=16:GOSUB1 1000: PRINT"MIELIJA":X=22:G0SUB1 1098 

GET SC$: IFSCE<""THENSC20 

PRINT" 27": GOSUB11608: PRINT" ":GOSUB11006 

GOTO 36189 

38620 SC=VAL (SCS): IF SC>2 THEN 3610 

8625 IF rage UN CLOSE 4:RETURN 


2620 PRINT 
2635 Nel Y=3 GOSUBL1OOO:PRINT"ER 1 74ÑA LA 0 STATS NAS 
8640 X=9:Y=+3:GOSUB1 1000 : PRINT "Re =—===============- 


2645 X=7:W="Y-1:G0SUB11000: INPUT NS 
3646 L=LEN(NS>* IF L=20 THEN 2650 

2647 LL=26-L 

3643 a K=1 TO LL: Ne=H$+CHREC2) NEXTK 


a_R 
2678 RE=WALCAR$C0)):REM ULTIMO REGISTRO INTRODUCIDO 
3675 X=3:=12:G60SUB11000:PRINT"2 541-752 "LIT ci" 
86380 X=13:Y=+3:G0SUB11000:PRINT"NCALEO 1/1 070": Y=4+2:G0SUB1 1000 
38682 PRINT'X ARE 41" 
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8685 Y=Y+2:GOSUB11000:PRINT"N GOR INT LT NATA 
32699 X=16:Y=Y+3:G0SUB11000:PRINT" MIL, 4": x=22 
8692 DET MG: IF HE<S"" THEN 2709 
2694 GOSUB11000:PRINT" 38?" :GOSUB11000:PRINT" ":GOSUB11000 
86296 GOTO 2692 
3790 edi do a WC1 OR M3 THEN 8692 

REM 


8706 IF SC=1 THEN 2710 

8707 IF SC=2 THEN CMD4:PRINTH4.+CHR$C17)5CHR$C14);N$3C0HR$C145)5CHREC15) 
8708 PRINT44:G0TOS715 

2710 PRINTHOS:%=2:Y=2:G0SUB11000:PRINT"A"NS"S":Z=0 

8715 KL=9:2=0 

38720 1F W=3 THEN KL=1:4=1 

8725 FOR J=1 TO RE 

3740 BSC7I=MIDICRASCIO. 34,20) BF08)=RIGHTECARSCIO, 19 BFCSI=MIDICAATCIO, 22,2) 
8742 ESCS)=MIDFCARFCJ), 24,2) :BSC5>=MIDECARSCIA, 26,8) 

8743 IF VALCBFCE)ICOH OR BF(79<ONS THENS7SS 

3744 Z=ZHUALCBLCE)) 

3743 IF 30<22 THEN 3750 

8748 CMD4:PRINTEBSC 04" BFCS), BIC6) 

2749 PRINTH4:G0T09755 

8750 Y=Y+2'C0SUB1 1900: PRINTESCIO ; "EV" ¡BFC(5), BGC6) 

8731 1F Y<518 THEN 8755 

8732 X=2:Y=Y+1:G0SUB11000:PRINT"PULSE UNA TECLA PARA CONTINUAR" 
8793 DET A$:1F A$="" THEN 8753 

3754 PRINTHOS :Y=2 

8755 NEXT J 

$756 IF KL=1 THEN M=2:KL=9:G0TO0 8725 

8758 2F=3TRE(Z) “ZL=LENCZS) LL=8=2L 

8760 IF LL=0 THEN 2770 

8769 FOR K=1 TO LL:Z9=CHR$C32)+23*NEXTK 

3770 IF SC=2 THEN CMD4:PRINT"TOTAL :";24:PRINTI4:GOTO 8779 

3778 K=2:W=4+2:G0SUB 11000:PRINT"NTOTAL +M"52% 

2779 1F SC=2 THEN PRINTHOS:Y=13 

2720 2=3:W=4+3:G03UB11000:PRINT"MPULSE UNA TECLA PARA CONTINUAR" 
3298 GETAS: IFAS=""THENSI9S 

8929 CLOSE4:GOTOS60A 


REM 
9001 EN Ak RUTINA DE CALCULO dk 


5010 GOSUB 9100 

9015 X=CXINC) :W=CY (NC) :GOSUB1 1000 

9017 LL=LENCBS(S)) IFLL=9THENB$(S)=RIGHTSCBL(S), 35 G0T0 9030 
9019 IF LL=83 THEN 9030 

9020 K=8-LL 

9022 FOR I=1 TO K:B$(5)=CHR$(327+B4(5) NEXT 1 

5030 PRINT B$<5) 

9090 RETURN 

9100 REM OPZ=1 - 
9105 Z1=VAL(BS$C3)) 

9110 Z2=VAL(BGC4) 

2115 23=INT(21-22) 

9125 BSCG)=STRECZI) 

9130 RETURN 


REM 
2156 REM RUTINA ERROR 
REN 


9152 X=9:Y=29: GOSUB11000:PRINT" BT 7 ALTAS" 
3154 FOR T=1 TO SO0:NEXT T 


39156 $29: Y=20:G0SUB11009:PRINT" "RETURN 
9999 REM 

10000 REM ARRE DATA RARA 

19005 REM 


10010 DATA 145,17,29,157,140. 133.136, 13.25.134,135,0.0,9,0 
10013 REM RR OP LL ARANA 
10615 par ACODIGO", "DESCRIPCION", "NTOT. PREY.“,"gTOT. REAL". "ATOT. DESY." 


10055 DATA1.1,0,19,8,26,8,3,20,0,7,11,19.11 

10057 DATR1,8,0,7,13,19,13,4,8,9,7,15,19,15 

10058 DATA2.8,0,7.17,19,17 

10030 REM ARERIRR OP Z=ZZ RRA 

10032 DATA" ANOMBRE", "ICODIGO". "FECHA", +. "NIMPORTE"., "ADESCR. " 
10084 DATA3,26,8,7,2,17,9,1,1,0,7,-11,17,11,1,2,0,7.13.17,13 
10085 DATA4,1,0,7,13,19,13,1,2,0,7.13.20,13,1.8,0.7,15,17,15 
10086 DATA3,20,0,7,17,17,17 

101500 REM HA dd dd dd dodo: 


REM 
11001 EEN dER POSICIONADO EN wd 
mM 


11905 POKE 211,% 
11010 POKE 214, 
11015 S'S58732 
11020 RETURN 


REM 
12001 Ea e GESTIÓN PLAN DE CUENTAS kk 


12005 GOSUE 7000: GOSUB12060 

12006 IFSEL=9THENRETURN 

12007 IFSEL<O3THEN12150 

12068 PRINTHOS : COSUE7O004:REM SEL=3 GENERACION 
12009 X=10:=10:G0SUB11000: PRINT"SGENERACION EN CURSO" :Y=+3:GOSUB1 1000 
12010 INPUT"CONTINUO (SINO) a";R$ 

12611 IFR$="SI"THEN12025 

12620 RETURN 

12025 A$="":FORI=1T036:A$=A$+"4":NEXTI 

12030 FORI=1T09:EB4(1)=A$:CC0$(1)=A4 :NEXTI 
12032 A$="":FORI=1T054:A$=A3+"4":NEXTI 

12633 FORI=9T0100:AA$<1>=A$: NEXTI 

12035 PRINTHOS:2=5:w=11:GOSUB1 1000 


PRINT"2ESTE PROGRAMA ESTA PREDISPUESTO":Y=W+2:G0SUB11900 
945 PRINT"PARA UN MAXIMO DE MIGOZ MOVIMIENTOS" 

FORI=1T102000: NEXT 

RG=2:GOSUBCODA 

RETURN 


7 REM 
EE ELECCION 


e: =5: GOSUB11090: PRINT"WA41 47 A MAR = 143: %=12:608UB11000 
PRINTER 31-010": Y=442:G0SUB1 1000 
PRINTS 10170": = +2: GOSUB11000 
PRINTS ARA ITA" 742: GOSUB1 1000 
PRINT"E<O NR XL 0 sr LR 42 G0SUB1 1000: PRINT" ELIJA" 
GETSEL$ : IFSEL$<>""THEN12100 
A=22:G05UB11000: Pro GOSUB11000:PRINT" " 
60TO012087 
SEL=WALC<SELS>: IFSEL>3THEN12087 
RETURN 


REM 

1F37<52 THEN RG=1:GOSUEGOGO 

IF £3="N" OR R$="7/" THEN RETURN 
FRINTHOS:%=7:=6: GOSUB1 1000: PRINTDH$(SEL> 
GOSUB 7000 

NUC=1:B4$(4)="":GOSUE 2000 

GOSUE 3000 

1F FS=7 THEN RETURN 

IF FS=90RFS=6THEN 12160 

RE=YAL(BSC1)) 

IF REX1 THEN 12190 

3 IF SEL=2 THEN 12235 

B4(2IFLEFTECBESCRES. 200 
Bi(37=MID3(BEFCRE>, 21,3) AE 
ESC4I9=MIDSCBRECRES, 29,85 
60T012250 
ES(2)=LEFTSCCCFCRE), 205 
ES(3)=MIDS(CC$CRE>, 21.8) 
ricos 


HUC=5 

TP<12=4:TP(29=5:TP(3)=5 

GOSUB 2000 

NC=S5 : COSUBI0GO 

TPC3)=1:TPC5)=2:GOSUB 3100: TP(1)=1 

IF FS=6 OR FS=29 THEN 12160 

IF FS=7? THEN RETURN 

IFSEL=1THENBESCRE)=ES(2)+BS(39+BF04) :G0T012300 

COS RE)FESC2IA BLOGIA EGO 

PRINTHOS :2=2:Y=6 :GOSUB1 1000: PRINT"EE, ALL e AS" =14+3:=8 : GOSUB1 1000 
PRINT"BCALRO RS PLA ALAS AOS +2 GOSUB1 1000 
PR INT" CROS: DA SAT 14150" Y=+2: GOSUB1 1000 
PRINTER lA AA MS a 044 012 GOSUB11000:PRINTU TL M0 
GETSELS : IFSEL$<O""THEN1236 

X=22:G0SUB11000:PRINTU O":  bosunt100a: PRINT" 0 

607012340 

SEL=WAL (SEL$): IFSEL>S0RSEL<1THEN12340 

IFOS=2THENRETURN: REM MOVIMIENTOS 

IFSEL<O3THEN12160 

RG=2 : GOSUBEOOO : RETURN 

RENA AAA RIOR JOCAR A Odo: 

REM 4 AYUDA 40 

REM 

POKE 53230, 6:PRINTHOS; RTERES 142); 
PRINTTABCOO"MACRSR RIGHT : 5 MUEVE A DERECHA" 
PRINTTABCOS)"MACRSE LEFT MUEVE A IZQUIERDA" 
PRINTTABCS) "MALCRSR UP MUEVE ARRIBA 

PRINTTAB(S) "MALCESR DOLM MUEVE ABAJO sl 
PRINTTABCS) "MA F1* + ANULACIÓN y 
PRINTTABCS> "MA FS” : 1 INSERCIÓN A 
PRINTTABCO) "MA FS” BORRADO po 
PRINTTABCS> "MA FE? VUELTA AL MENU " 
PRINTTAECS> "MA FS” INTRODUCCION Y 
OS S) "MAC TRL+Y AYUDA " 


PRINTTABCS) "MARETURN ¿E ALIMN E 

PRINTTABC6) "MAPULSE UNA Tecuh PARA  OLVER" 

CETRy: IFR$=""THEH13066 

PRINT HO+:POKE 53280, 14 

RETURN 

REM FERRE IMPRESION PLAN DE CUENTAS Ador 

IF S7<O2THEN RG=1:GOSUE 6000 

IF Ré="N" OR Ré="/" THEN RETURN 

PRINTHOS: GOSUE 7090 

o 

223: Y=8 : GOSUB11000:PRINT"2541 LT PAS: 129: Y=+3: GOSUBL 1000 
PRINT"BOALO NR + /1 0770" 0 Y=1142:GOSUEL 1000: PRINTS 14100" 
S Y=+2:60SUB_11000:PRINT"S AOS LIRA IIA" 
X=16:Y=+3:G0SUB11006: erario didani R=22* GOSUB11000 

GET PR$:1F PR$<>"" THEN 14628 

PRINT" m7": GOSUB11000: PRI ">GOSUB11060 

GOTO 149020 

PRSYALCPRIO IF PREÍ OR PRO THEN 14020 

4=9:W=11 :G0SUB11009 :PRINT"KALDE Y TO 42 :G0SUB 11000 
PRINT"BOAROR 7 ANTATIA=4 20 GOSUB1 1000 

PRINT"BORTO xo *L di e 002222: W=+3: G0SUB11000 

GET SC$:IF SCF<O"" THEN 14045 

GOSUB11000:PRINT" au": GOSUEL1009:PRINT" hn 

GOTO 14040 

SC=VALESC$) IF SC<1 OR SCS THEN 14049 

IF S5C=3 THEN CLOSE4 : RETURN 
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14049 PRINT HO$:X=1:W=1 :GOSUE11000:PRINTDHS<PR> 

14050 X=2:Y=2:K4=8 

14053 IF PR=3 THEN KY=1:PR=1:%=18:W=1:G0SUB11000:PRINTDH$<PR):X=2:=2 
14055 IFPR=1THEN 14058 

14057 PR=2 

14058 IF SC<>2 THEN 14069 

14059 CMD4:PRINTTAE(20); DHSCPRI:PRINTH4 


REM 
14065 FOR K=1 TO 2 
14070 IFPR=1THENGOSUB14509:60T014082 
14075 GO0SUB14520 
14022 IF SC<>2THEN 14090 
14095 CMD4 :PRINTCHR$(17)5 
14087 PRINTK;TAB<4);C$C1),0$C2) 
14090 1F SC=2 THEN PRINTH4:G60T014104 
14095 Y=4+2:GOSUB1 1000 
14190 PRINT"BUK 5 "NUCEci), "MUCEC2) 
14104 NEXT K 
141095 X=6:Y=22:60SUB11000:PRINT" Y 
14107 X=6:Y=22*605UB11000:PRINT" RTPULSE UNA TECLA PARA CONTINUAR" 
14108 GET A$:1F A$="" THEN 14108 
14300 IF KY<oBM THEN KV=B:PR=2:X=18:W=1 : GOSUB1 1000: PRINTDH$(PR> :%=2:'1=2:60T0 1495 


íS 
14305 CLOSE4 
14400 PRINTHOS:X=3:Y=22:00SUB11000:PRINT"SMPULSE UNA TECLA PARA YOLYER AL MENU" 
14410 GET A$:IF A$="" THEN 14410 
14420 RETURN 
14500 C$<1)=LEFTSCBBLSCK),20>:CFC2)=MIDSCEBRGCK)O 29,8) 
RETURN 


14520 C$C1)=LEFTS(COSCK)O, 20) :0$(2)=MIDECCCICKO 29,8) 
14530 RETURN 


REM 
15001 hr HR ESTADISTICA 44% 


En 
15003 1IFS7<92 THEN RG=1 :GOSUBGOGA 
15004 IF R$="N" OR R$="/" THEN RETURN 
15003 PRINTHOS:GOSUB 7000 
15010 2=2:'Y=6: GOSUB1 1900: PRINT"2 41 5 PTAS" W= 43: X=1 2: G0SIUB11009 
15015 PRINT"SNCALO RN OL 77" Ya +2: 005UB11000 
15020 PRINT"NCAREOR | Ma SLI" 42: GOSUB1 1000 
13023 PRINTER DO AL OT 42 GOSUB1 1000 
15025 X=16:'Y=Y+3:G0SUB1 1000 :PRINT" MEL IIA"; 
15027 GETSEL$: IFSEL$<>""THEM15035 
15030 X=22:G60SUB11000:PRINT" 387": GOSUBI11000:PRINT" * 
15033 GOTO 15027 
15035 SEL=WAL (SEL$>: IFSELC1ORSEL>)3THEN15027 
15037 rd THEN RETURN 


15052 IF SEL=2 THEN 15560 

15053 PRINTHOS : GOSUB7009: NO$="" 

15054 X=2:Y=8:60SUB11000:PRINT" 1-74 TL AA 

15095 X=2:v=10:G0SUB11000:PRINT"< Ha > MA 1MTO";:Y=89:%=23: G0SUB11000: INPUT" A 


15056 N=LEN(NOS>: IF N=0 THEN 15055 

15065 RE=WAL(AAS(B)) REM MOVIMIENTOS INTRODUCIDOS 

15066 IF NO%=CHR$(42) THEN N1$="1 OD0S":GO0TO15092 

15068 PRINT HOS:GOSUB 7009 - 

15070 *=0:Y=8:GOSUE1 1000 :PRINT"25 1 SL 4 LAT OA LOA O RAT 

15072 Y=Y+3:%=12:60S5UB11000 

150735 PRINT"NCALEOS 3/1 0T4" + Y=+2:GOSUB11000 

15077 PRINT"NCaLmOs 11 Fe": Y=4+2:G0SUB11000 

15079 PRINT"MCams 1MTe" :Y=Y+2:GOSUB11000 

15030 *=16:Y=+3:G05UB11000:PRINT"MELIJA"; 

15092 GETS1$: IFS1$<>""THEN15090 

150835 *=22:G0SUB11090:PRIMT"2U7?":GOSUB11000:PRINT" 

15087 GOTO 15082 

15090 S1=WAL(S1$>*1F S1<1 OR S193 THEN 15032 

15091 Nis=N0% 

15092 PRINT HOF:X=3:W=1:GOSUB11000:PRINT"I"N1$:X=0: Y=Y44 

15095 KL=9:=9 

15097 IF Si=3 OR NO$=0HR$(42) THEN KL=1:S1=1 

15100 FOR I=1 TO RE 

15115 BS(19=LEFTSCARSCT A) 20): B$(8)=RICHTECARSCTIO, 1): BFC3I=MIDFCARSC 1) 22,2) 
15120 B$(6)=M1DSCAR$(1),26,8 ESC3)=MIDICAASOIO 24,2): BS(79=MIDICARSC1), 34,20) 
15122 TP=WAL(B$(8)>:1F TP=2 THEN FS$="-33":GOTO 15125 
15123 Fss="pi " 

15125 N$=LEFTE(BSC1),N> 

15127 1F NOS$=CHR$(42THEN 15135 

15130 IF N$<9NOS THEN 15150 

15133 IF SI<>TP THEN 151509 

15137 X=1:Y=Y+1:GOSUB110090 

15140 PRINT"MUBSCD) 5" MBE ESOS: BSO BRL 
15143 IF TP=1 THEN M=b+WAL(BFC65) 607015196 

15145 bl=k-WAL(B+(6)> 

15146 IF <128 THEN 15150 

15197 PRINTTRBCS) "PULSE UNA TECLA PARA CONTINUAR": ws, 
15148 GET R$:IF R$="" THEN 15148 

15149 IF Y=2 THEN PRINTHOS 

15150 NEXTI 

15155 IF KL<>6B THEN S1=2:KL=0:GOTO 15109 
A ae 
15160 ME=STR$CID :LO=10-LENCHS>:1F L9=M THEN 15164 
15163 FOR K=1 TO L9:M$=CHR$(32)+d$* HEXTK 

15164 PRINT "TOTAL = "¿us 

15170 *=2:Y=22:605UB11000 

15175 PRINT"2PULSE UNA TECLA PARA VOLVER AL MENU" 
15180 GET R$:IF R$="" THEN 15159 

15200 RETURN 

15500 REM dk GRAFICOS doo 


ro 
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19502 SCH(1)="EN":SC$(2)="FE":SCFCDI="MR":SESC4)="AB" SCS) ="Mw" :SCS(6)=" JN" 20010 FOR 1=0 TO 62:READ D:NEXTI 
155903 SC$(7)="JL":SC$(8)="AG":SC$(9)="SE":SC$(109="0C" :SCFC11)="NO":SCFC129="DI" 206020 FOR I=1 TO 6:READ X$:NEXTI 
15505 1$=""":Lw=20:L4=35:X0=3:10=1:L1=1:N1=12:N2=2 20025 FORK=1 TO 3 


15506 PRINT HO$:POKES3281,6'POKES3280, 6! PRINTCHR$(142) 209030 FOR 1=0 TO 62:READ D:NEXTI 
15520 RE=YALCAASID)> 20035 NEXT K 

15530 FOR I=1 TO RE 20045 1F LW<O THEN RETURN 

15545 BSCS)=MIDECARSCI?, 24,2): BEC52)=MIDICARSCI), 26,8): EF(8)=RIGHTECARASFC10, 1) 20050 FOR I=1 TO LV:RERD LW$:NEXTI 
15547 2=WBLCES(67) :MSVALCBECSA) 20100 RETURN 


15550 1F B$(8)<5"1"THEN 15560 

15995 YICM=YI(M)+Z:G0T0 15565 

15560 VS(M)=4SCM)+2 

15565 NEXT 1 

15570 REM BUSQUEDA DEL YALOR MAXIMO 

15575 REM Y CALCULO FACTOR DE ESCALA 

15580 MA=0 

15585 FOR I=1 TO 12 

15587 YWICI>=W1C1>/10000:V5(1)=Y3C1)/10000 

153998 IF WICI>=MA THEN MA=Y4I<1> 

15595 IF VSCcIóO=MA THEN MA=S(1> 

15597 NEXT 1 

15600 FS=Lw¿MA 

15605 REM 

15610 REM PRESENTACION EJES 

15615 PRINT_HO*$; :PRINTTAB<S> "EVOLUCION DEL BALANCE FAMILIAR" 
15616: PRINTIADO SIE ar toa a a a TA MO ON 
15620 X=XB:Y="40: GOSUB11600:PRINT" 1; 

15625 FOR J=1 TO LW+1 

15630 Y=+1:GOSUB11000 

15635 PRINTIS; :NEXTJ 

15640 FOR J=1 TO LX 

15645 X=%+1:G0SUB11000 

15650 PRINTIS; :NEXTJ . 
15655 PRINT""M"; s 
15660 X=%0:Y=+1 

15665 FOR I=1 TO N1:X=X%+L1:G0SUB11000:PRINTSC$CI2;:X=%+2: NEXT 1 
15670 X=0:W=W9+1:G0SUB11000:PRINT"MLGO"; 

15675 Y=Y+10:G0SUB11000:PRINT"SO"; 

15680 Y=+9:GOSUB11000:PRINT" 0"; 

15635 Y=24 :X=10:G0SUB11000:PRINT" Mi M3=INGRESOS — WI MA=GASTOS"; 
15690 REM PRESENTACION HISTOGRAMMA 

15700 X=X0:Y=Y-2 

157035 FOR l=1 TO Mi 

15710 X=%+L1 

15715 Y1=22-INT(YICIDAFS) 

15720 IF Y1<=0 OR Yi=22 THEN 15745 

15723 FOR W=21 TO Y1STEP-1 

15730 G0SUE 11000 

15735 PRINT"3bi " 

15740 NEXT Y 

15749 X=M+L1 

15759 2=22-INT(WSCIHFS) 

15755 IF Y2<=8 OR V2=22 THEN 15780 

15760 FOR Y=21 TO Y2STEP-1 

15765 GOSUB11009 

15770 PRINT"xXI " 

15775 NEXT Y 

15780 X=%+L1 

15785 NEXT_I 

15800 GET R$:1F R$="" THEN 15800 

15815 FOR J=1 TO 12:41 (J9=08:4S<J)=0:NEXTJ 

15320 RETURN 

20000 REM RESTORE DATA 

20005 RESTORE 


RELACION DE LAS VARIABLES - COMMODORE 64 


BL$ ”” (blank) FS = Tecla de función (código) 

ER$ =>”E” (por Error) CA = Código ASCII del carácter 

PD$ ”” (punto decimal) introducido 

AS$ ="”-" Símbolo de campo = Nombre del fichero a procesar 
alfanumérico = Puntero del registro 

NS$ =”%” Símbolo de campo = Cadena utilizada para la 
numérico generación de l/O de datos 

SL$ =”/” Z1,Z2,Z3 = Variables utilizadas para los cálculos 

NV  = Número de voces del menú LY = Coordenadas verticales útiles 
principal para el histograma 

LV$ =Flag para la lectura en vacío LX = Coordenadas horizontales útiles 

NUC = Número de campos para el histograma 

SEL$ = Selección en los menús I$ = Símbolo gráfico para los ejes 
secundarios cartesianos 

NC  =Número del campo = Máximo movimiento 

CC  =Contador de caracteres Yi = Altura columna cobros 

FS  =Factor de escala (histogramas) Y2 = Altura columna gastos 
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La lógica del programa 


Abajo se ha representado el diagrama de flujo 
general del programa, mientras que los formatos 
de los ficheros se indican en la tabla de la página 
siguiente. Los valores expuestos en la tabla sólo 
son indicativos, y pueden ser variados por el 
usuario en función de sus necesidades. Las apli- 
caciones anteriores (Cálculos económicos y Ges- 
tión de la cuenta corriente) se han desarrollado 
incluyendo la descripción de primer nivel de los 
módulos. En este programa omitiremos estas 
descripciones funcionales para ilustrar el uso de 
los módulos como elementos de un “macrolen- 
guaje” con el que desarrollar la aplicación. 


Los módulos utilizados son los siguientes: 


1300; 
7000: 


Menú 

Lectura de los DATA (los DATA se in- 
sertan a partir de la línea 10000) 
Presentación máscara 

Data entry 


2000: 
3000: 


La trasposición de la subrutina 1300 de otros pro- 
gramas a éste es inmediata: basta sustituir las 
descripciones de las diferentes voces y adaptar 
los posicionados iniciales. Los otros módulos pa- 
ramétricos necesitan un mínimo de trabajo. Por 


PROGRAMA PRINCIPAL 
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FORMATO DE LOS FICHEROS 


Longitud Número máx. 
Nombre registro de registros 
INGRESOS 36 9 
GASTOS 36 9 
MOVIMIENT. 


ejemplo, la gestión de las máscaras, formada por 
las tres rutinas Lectura de los DATA (7000), Pre- 
sentación máscaras (2000) y Data entry (3000), 
se utiliza en dos aplicaciones: 


"m Gestión del plan de cuentas (1200) 
m Movimientos (8000) 


Por tanto, los módulos deben prever dos modali- 
dades diferentes de funcionamiento en relación a 
la utilización. Las subrutinas de servicio ya tienen 
la generalidad necesaria, excepto la 7000 (DA- 
TA), que debe prever las asignaciones para to- 
das las máscaras previstas. De esta manera, pa- 
ra reclamar los módulos desde los diferentes 
puntos del programa es necesario implantar un 
flag que especifique de dónde proviene la llama- 
da. Por ejemplo, las instrucciones 


V=1:TR =V 
GOSUB 7000: GOSUB 2000: GOSUB 3000 


seleccionan la primera máscara (Generación 
plan de cuentas, V = 1), llamando la 7000 para 
cargar los oportunos valores (descripción, tipo y 
longitud de los campos, etc.), presentan la más- 
cara (2000) y permiten su gestión (3000). Por tan- 
to, sólo es necesario memorizar en cinta o disco 
los datos introducidos en la 3000. 

En las instrucciones anteriores se utiliza también 
el indicador TR (el valor de V se selecciona en el 
menú), porque en la 7000 (lectura DATA), la se- 
lección de las asignaciones (o sea la selección 
del tipo de máscara) se hace utilizando la varia- 
ble TR. 

El uso de los módulos necesita una metodología 
que, por pasos sucesivos, permite definir los valo- 
res de todas las constantes afectadas. Los princi- 
pales pasos son: 


am Definición de los datos necesarios: longitud, 
tipo, etc. 
m Preparación de la subrutina DATA 


El primer punto puede desarrollarse refiriéndose 
a la figura de la página anterior y la tabla de al 
lado. Para cada función prevista deben definirse 


los campos de datos y el fichero en que se me- 
morizarán estos datos. En esta aplicación, cada 
máscara vídeo corresponde a un fichero y, por 
tanto, los formatos son comunes (por máscara y 
fichero). En otros programas esta coincidencia 
puede no producirse, y las modificaciones se 
presentarán cada vez. Las funciones a desarro- 
llar y que requieren introducciones con máscara 
vídeo son: 


m Generación plan de cuentas. Máscara n.” 1, fi- 
cheros COBROS y GASTOS 

"m Movimientos. Máscaras n.” 2, fichero MOVI- 
MIENTOS. 


Los dos primeros archivos y las correspondientes 
máscaras sólo difieren en el significado de los im- 
portes y, en consecuencia, pueden tener forma- 
tos iguales. 


Gestión del plan de cuentas (subrutina 1200). 
Para definir el plan de cuentas (los ficheros Co- 
bros y Pagos constituyen, en su conjunto, el plan 
de cuentas) se necesitan por lo menos las si- 
guientes informaciones: 


— Código de la voz 

— Descripción 

— Total previsto 

— Total real (calculado por el programa en base 
a los movimientos introducidos). 


Como a cada voz corresponde un registro muy 
preciso, por comodidad, el código puede coinci- 
dir con la misma posición del registro en el fiche- 
ro; la primera voz tiene código 1, la segunda 2, 
etc. El formato del registro de estos dos ficheros 
será el descrito en la siguiente tabla: 


Número 
Campo Longitud | Tipo 
Descripción 20 3 
8 1 
8 1 


Tot. Previsto 

Total real 
Por tanto, para definir la máscara de generación 
del plan de cuentas deben implantarse los si- 
guientes parámetros: 


D$(1) = "DESCRIPCION" 

D$(2) = "TOT. PROV.” 

D$(3) = "TOT. REAL" 

LC(1) = 20,C(2) = 8, LC(3) = 8 
TP(1) = 3, TP(2) = 1, TP(3) = 1 
ND(1) = 0, ND(2) = 0, ND(3) = 0 


Ahora sólo queda por definir el posicionado 
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de las descripciones y de 
las zonas de introducción en 
la pantalla vídeo. Es decir, 
deben proporcionarse los 
valores de DX(wx), DY (+) para 
las descripciones y CX(w), 
CY(x) para los datos. El 
mejor método consiste en 
dibujar sobre un papel la es- 
tructura que se desea tener 
en la pantalla y efectuar los 
posicionados en  conse- 
cuencia. En la máscara que 
aparece en la foto de la pág. 
102 hay el campo CODIGO, 
que no es un campo de in- 
troducción propiamente di- 
cho. El programa conoce el 
último dato introducido y po- 
dría generar automática- 
mente el nuevo código. Por 
ejemplo, después de haber 
introducido cuatro voces en 
el plan de cuentas, a la si- 
guiente introducción podría 
presentarse automática- 
mente el valor 5. En este ca- 
so no conviene utilizar el au- 
tomatismo, sino dejar al 
usuario la elección de la voz 
a introducir, Si la voz ya exis- 
te, se presenta su contenido 
permitiendo eventuales co- 
rrecciones; si no existe, se 
utiliza la misma máscara pa- 
ra la introducción. 

El plan de cuentas se divide 
en las dos secciones Ingre- 
sos y Gastos, que son ges- 
tionadas por una misma 
máscara; por tanto debe se- 
leccionarse una de las dos 
voces e indicarla en la más- 
cara, 

La voz seleccionada no for- 
ma parte de la data entry, y 
se presenta con una simple 
función PRINT, 

En esta página y en la si- 
guiente se ha representado 
el diagrama de flujo de la 
subrutina 1200, que realiza 
las funciones descritas. 


Balance (subrutina 5000). 
Esta subrutina permite pre- 
sentar en el vídeo la situa- 
ción del balance, o sea la 


1842 


GESTION DEL PLAN DE CUENTAS 


prevista (en 
lios » Philips 


Selección no k 


Todos los campos 
están en blanco 


La primera 
llamada a las 
2000 y 3000 
sólo sirve para 
introducir el 
código 


Sólo en el campo CODIGO, 
que se ha introducido 
provisionalmente en B$(1) 


funciones pedidas 


pl | Vuelve al menú y 


El cs la transforma 
en numé 


GE Control sobre eventuales 


Ó 


suma de los ingresos y de 
los gastos. 

Las funciones a desarrollar 
son las siguientes: 


m Lectura del fichero IN- 
GRESOS, totalización e 
impresión del total 

m Lectura del fichero GAS- 
TOS, totalización e impre- 
sión del importe total 

m Cálculo de la situación 
del balance: 

Total ingresos — Total 
gastos = Balance 

m Cálculo de las desviacio- 
nes del total previsto. 


Introducción movimientos 
(subrutina 8000). La subru- 
tina de gestión de los movi- 
mientos lleva a cabo dos 
funciones: 


mn Registra los movimientos 
en MOVIMIENTOS 

"= -Acumula el cobro o el pa- 
go en los progresivos 


Las informaciones a memo- 
rizar en el fichero MOVI- 
MIENTOS, y por tanto en la 
correspondiente máscara, 
dependen de las necesida- 
des del usuario; lo que se in- 
dica es sólo un ejemplo. Va- 
riando los DATA y las ins- 
trucciones de formateado 
del registro pueden realizar- 
se fácilmente eventuales 
modificaciones. 

La Data entry prevista con- 
tiene los siguientes campos: 


1/Nombre, 20 caracteres, 
indica quién ha efectua- 
do el movimiento 

2 /Voz, 1 carácter, indica la 
voz del plan de cuentas 

3/Fecha, 4 caracteres, día 


y mes 
4 /Importe, 8 caracteres, 
hasta 99 000 000 


Ver nota* 


Anulación J 


El fichero (INGRESOS o 
GASTOS) se selecciona en 
base al contenido de KV (1 o 


2) 

Los datos se transfieren a 
BS(:): 

B$(1) = 20 bytes (descrip- 


ción) 

B$(2) = 8 bytes (tot, 
previsto) 

B$(3) = 8 bytes (tot. real) 


Antes de llamar la Data entry 
hay que definir todos los 
campos de presentación 
con introducción; de otro 
modo, los valores leídos no 
serían presentados en pan- 
talla 


| Vuelve al menú 


Transfiere 
los datos al fichero 


Y Para las versiones en cinta no se ha previsto el acceso directo en base al número de registro, por lo que 
se utiliza un bucle en todo el fichero de 1 a RE. El diagrama de flujo de principio es el siguiente: 


Indice del bucle 


INPUT 4 ... 
AS 


Js 


En este punto, la variable 


Meer os A$ contiene los datos del grupo RE 
5 / Descripción, 20 caracte- 


res, breve descripción 
de la operación 

6 / Tipo, 1 carácter, 1 si es 
un ingreso, O si es un 
gasto. 


El diagrama de flujo puede aplicarse a ficheros con registros de longitud 

máxima ¡igual a 80 bytes (limitación impuesta por la instrucción INPUT +f). Los listados 
presentados no tienen en cuenta esta estructura, pero (por ejemplo en el C64) 
superan el problema utilizando los ficheros de tipo «relatives» 
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Los campos 2 y 4 deben 
llenarse necesariamente, 
mientras que los otros son 
facultativos. El diagrama de 
flujo se ha representado en 
esta página y la siguiente. 


Estadística (subrutina 
1500). En general pueden 
preverse dos funciones prin- 
cipales: 


m Selección y totalización 
de los importes en base 
al contenido de un cam- 
po 

am Presentación de un gráfi- 
co que muestra la evolu- 
ción mensual de ingresos 
y gastos. 


Las dos funciones pueden 
combinarse para obtener 
gráficos con selección. 

En el gráfico de la página 
122 se ha representado el 
diagrama de flujo de la parte 
que totaliza los importes en 
base al nombre de quien ha 
efectuado los movimientos; 
para variar el campo de se- 
lección basta cambiar los 
textos y el índice de BS(1). 

La segunda función requie- 
re el uso de dos nuevas ma- 
trices [VI(12) para los ingre- 
sos y VS(12) para los pagos] 
en las que totalizar los im- 
portes correspondientes a 
cada mes. El diagrama de 
flujo puede verse en la figura 
de la pág. 123. 

La subrutina gráfica está di- 
vidida en dos partes: la pri- 
mera lee los datos de la cin- 
ta o del disco y los transfiere 
a dos matrices (una para los 
ingresos y una para los gas- 
tos); la segunda presenta el 
gráfico en forma de histo- 
grama. 

Las funciones que debe rea- 
lizar la rutina en conjunto 
son las siguientes: 


1 / Presentación de los ejes 
2 / Presentación de los tex- 
tos 
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INTRODUCCION MOVIMIENTOS 


Obsérvese la estrecha analogía con la subrutina 12000. El uso dessubrutinas parame- 
trizadas, como las 7000, 2000 y 3000, permite desarrollar una aplicación particular 
simplemente uniendo los diversos módulos. La comparación de este diagrama de flujo 
con el de la 12000 proporciona además un ejemplo de los dos módulos de gestión de 
los ficheros. En la 12000, el número de registros es fijo, por lo que no es necesario el 
directorio de fichero. En la 8000, el número es «abierto» y, por tanto, el primer registro 
se dedica al directorio, o sea a la memorización del número del último registro escrito. 


Al principio de la 8000, la 
selección se guía como 
puede verse en la secuencia 
fotográfica 


Introducción del tipo (ingreso o 
gasto). La elección está 
codificada en SEL 

(1 = INGRESOS, 2 = GASTOS) 


El registro contiene el numero 
del último registro escrito; la 
nueva introducción debe 
memorizarse en posición 

RE +1 


El campo 6 no es de 
introducción, pero se 

genera automáticamente en 
base al tipo (ingreso = 1, 

gasto = 0). No está escrito en 
pantalla, sino sólo en el registro 


3 / Histograma, con un 
bucle de 1 al número 
de las variables a re- 
presentar. 


La presentación de los ejes 
se reduce al trazado de dos 
segmentos, respectivamen- 
te de longitud LY (eje Y) y LX 
(eje X) a partir del origen 
XO,YO. 

Los otros dos puntos, en 
cambio, presentan algunas 
dificultades para ser resuel- 
tos de forma parametrizada. 
En la figura de la página 124 
se muestra la lógica seguida 
en el programa. La rutina 
puede representar hasta 
cuatro variables simultánea- 
mente. Los parámetros a 
pasarle son: 


N2 = Número de variables: 
debe estar compren- 
dido entre 1 y 4 

N1 = Número de valores a 
indicar para cada va- 
riable. 


Mediante estos parámetros 
se calcula el parámetro L1, 
que es la anchura de cada 
columna del histograma: 


L1 =LX/ (Ni + N2) 


En algunos casos, los valo- 
res que se obtienen no son 
enteros; entonces hay que 
aproximar L1 al entero más 
próximo. En el gráfico, esta 
aproximación se reduce al 
uso parcial del espacio dis- 
ponible en el eje X; sin em- 
bargo, esta reducción es 
muy limitada y no influye en 
la claridad, 

En la misma figura se ha es- 
quematizado el procedi- 
miento para el cálculo de la 
posición de las letras en el 
eje X (2 letras por punto). El 
parámetro a pasar es 
SL = espacio ocupado por 
las dos letras en puntos 
pantalla, y depende del tipo 
de máquina. 

Realizados los cálculos indi- 
cados, la presentación de 


o) 


O 

y 
[5 
le 


A yy no 


dy no 


Lectura del 
registro N 
Al fichero 

del registro N 


Al fichero 
MOVIMIENTOS 
registro RE + 1 


Actualiza 
registro 1 
fichero MOVIMIENTOS 


En B$(2) hay memorizada la 
voz; N es el equivalente 
numérico 


Del fichero seleccionado 
anteriormente (INGRESOS o 
GASTOS) se lee el registro N, 
correspondiente a la voz del 
plan de cuentas introducida 
en el movimiento 


El importe introducido 

se suma al contenido del 
registro, o sea al total de la 
voz seleccionada 


Se memoriza 


el nuevo progresivo 


Transfiere el movimiento 


Escribe el valor RE + 1 en 
el registro 1 del fichero 
MOVIMIENTOS 
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ESTADISTICA: PARTE DE SELECCION 


Las instrucciones de 15000 a 15045 Y 
son el diálogo para 
elegir la función (ver foto) | vio | 
Lectura registro 
1 fichero 


y 


El nombre 

no coincide -* 

con el NO 
seleccionado 


y 


NO 


Número de caracteres 
en la versión NOS 


Después de la lectura, RE contiene el número 
de movimientos hechos 


La selección puede ser: 

2 - De todos los movimientos 
1 - Sólo gastos 

0 - Sólo ingresos 


Principio del bucle de lectura del 
fichero MOVIMIENTOS. 

El registro 1 no contiene datos, 

sino sólo el puntero, y no debe leerse 


De esta manera también puede seleccionarse 
sólo en base a los primeros 
caracteres del nombre 


TP es el tipo leído en el registro 


Totaliza el importe 


HISTOGRAMA 


y 


Lectura reg. 1 
fichero MOVIMIENTOS 
en RE 


ve 


¿ Lectura registro 


EE] El campo 6 contiene el importe 


B$(5) contiene el mes 


si Ingresos 
Suma en la posición 
correspondiente al mes M 
(los importes son en millares) : NO 


O 
sl 
y 


gl Áf co en dos partes (ingresos/gastos). 


La escala horizontal es de 12 
valores, uno por mes, divididos 


La escala vertical es en tantos por ciento 


E 


Antes de llamar el gráfico debe hallarse el factor de escala según el eje Y. El método es el siguiente; 


1 - Se busca el máximo entre VI(*) y VS(+) 


Altura eje Y 
2 - Factor de escala = Arabe 
Máximo 


N.B. Para el Commodore 64 y el Philips VG 8010, los histogramas se realizan utilizando los,caracteres gráficos 
en baja resolución. Para el Apple se utiliza una subrutina gráfica en alta resolución 
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las leyendas se reduce a un 
bucle entre 1 y N1 con posi- 
cionado en el eje X en X = 
X + P, donde P =L1 + 0D. 
El diagrama de flujo que 
describe esta fase puede 
verse en la página siguiente. 
Obsérvese presentación de 
las leyendas varía mucho 
entre las máquinas; por tan- 
to, en el diagrama no se ha 
detallado. 

Las leyendas a presentar se 
memorizan en SC$(«). Para 
cada punto debe presentar- 
se la cadena correspon- 
diente (SC$(1) en el primero, 
SC$(2) en el segundo, etc.), 
una vez comprobadoo que 
cada cadena sea de 2 ca- 
racteres (en el diagrama se 
ha previsto el completado si 
la longitud es inferior y el 
truncado si es superior). Es- 
tas cadenas deben estar 
preparadas antes de la lla- 
mada a la subrutina, 

Los diagramas de flujo indi- 
cados para la presentación 
de los histogramas sólo tie- 
nen un carácter conceptual. 
Para el desarrollo real del 
programa deben consultar- 
se los listados. 

Resumiendo lo dicho hasta 
ahora, las funciones a rea- 
lizar para utilizar la rutina de 
presentación del histogra- 
ma, son las siguientes: 


1 / Transferencia a la matriz 
V(s) de los valores a pre- 
sentar, ya en escala. El 
valor contenido en V(w) 
representa la altura del 
histograma en puntos 
pantalla. Básicamente se 
trata de obtener el factor 
multiplicador del cocien- 
te entre la altura disponi- 
ble en el eje Y y el valor 
máximo que hay en V(x) 

2 / Preparación de la cade- 
na SC$(+) 

3 / Cálculo de los paráme- 
tros 

4 / Llamada a la subrutina 
de los histogramas. 
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PRESENTACION DE HISTOGRAMAS 


Cálculo de los parámetros en el eje X 


Ni = 5, número de valores a representar 
para cada variable 
N2 = 4, número 
de variables 


LX = Longitud útil en el eje X 


LX = Nix (N2 * 11) + N1*L1 
de donde 
11 = LXI(N1 « (1 + N2)) 


Ll = Espesor de las columnas del histograma; también es la distancia 

entre un grupo de columnas y el otro 

N2 = Número de variables a presentar. La amplitud de un bloque viene dada por 
el producto Ll + N2 (espesor de la columna * número de variables a presentar) 
N1 = Número de valores a presentar (en el eje X) para cada variable 


Posicionado de las leyendas (2 letras por bloque) 


PRESENTACION DEL HISTOGRAMA Diagrama de flujo de principio 


Parámetros 
> LY,LX = Longitud de los ejes en puntos pantalla 
X0,YO = Coordenadas en el origen 


y 


Bucle de control 

de longitud 

cadenas SC$(x) 

En esta aplicación particular, 
las cadenas 

SC$(+) siempre tienen 
longitud 2 


Principio del bucle de posicionado 

y presentación descripciones en eje X 
En el diagrama se ha representado 
aparte del anterior sólo 

por claridad 


Presentación del histograma 
Principio del bucle del grupo 


Abscisa del principio de grupo 


Principio del bucle en el grupo, o sea 
en el número de variables 
a presentar 


La presentación del rectángulo 
está estrechamente ligada al tipo de máquina 


Posiciona en X 


L=L+ 
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Los listados / Versión Apple Il 


105 


110 


140 


170 


302 
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REMO O 

REM BALANCE FAMILIAR 

REM VERSION 

REM — — 

REM INICIALIZACIONES 

TEXT 

PLANS(1) = "PINC": 

PLANS (2) = "PPAG" 

DIM TF (15) -T1P.(20),L0(20),ND(20),€ 
X (20) ,CY (20) ,DX (20) , DY (20) 

DIM B$(20),D$(20),V0$(10),HE$(8), 
C$(8),FIS(5) 

REM CONSTANTES 


"MENU, BALANCE FAMILIAR ": 
D$ = CHR$ (4): 

US$ = CHAS (13): 

ZES = "0": 

GIUs =“ 

F1$ = "BNC": 

F2$ = "CON": 

Sue = “Jo 

BS=" ." 

BAS = B$ + BS + Eg + BS + BS 
+ B$: 

REM 10 espacios 


ñ 
na. oDcn n. 4.4 
au 
pa 
” 


L2 ="39 

HES = "COMANDOS. ESC/RET/CTRL M,A 
/5,2,E,1,D,R,Y " 

HES(1) = "CTRL Y. AYUDA («ESPACIO 
> PARA: CONTINUAR)" 

HES(2) = "ESC. ANULA TODA LA INTR 
ODUCCION '' 


HE$(3) = "RETURN. ALINEA Y CONVAL, 
1DA INTRODUCCION * 


HES(4) = "CTRL 1. PERMITE LA INSE 
RCION DE ESPACIOS" 
HE$(S) = "CTRL D. BORRA UN CARACT 
ER “ 
HE$(6) = “CTRL R. VUELVE AL MENU 
PRINCIPAL u 
HES(7) = "CTRL 14,A,S,Z. MIEVEN EN 
LAS 4 DIRECCION." 
HES(8) = "CTRL E. INTRODUCCION EN 
EL DISCO da 
REM_ CARGA VOCES 
RESTORE 
READ PROGS 
READ NV: 
MA = NW +1 
FOR 1 = 1 TO NV: 
READ VOS (1): 
NEXT 
VO$ (MA) = "FIN DE LA TAREA" 
FOR I = 1 TO 15 
READ TF(D) 
NEXT I 
HOME: 
X= 3: 
Y = 12: 
GOSUR 11000: 
PRINT "CUANTAS UNIDADES DISCO HAY 
PAI 
GET A$: 
PRINT AS: 
DR$ = "1"; 
IF AS = "2" THEN DR$ = "2" 


INVERSE 


360 
370 


470 


1110 
1115 


1120 


1130 
1140 


60SsuB 11000 

PRINT * EN LA UNIDAD ";DR$;" 
NORMAL. 

G0SUB 11000: 

GET A%$ 

REM MAIN 

60SUB 1300: 

REM MENU 


IF OPZ = (MA) THEN FOR I= 1 
TO 1000: 

NEXT +; 

TEXT 3 

HOME : 

END 

LM = 0P2 - 1 

IF OPZ = 1 THEN GOSUB 400 

ON 0PZ GOSUB 12000,8000,5000, 1500 

0, 14000 

DH$ = ": 

GOSUB 6700: 

IF S= 1 THEN PRINT DS: 

PRINT DS; "PRHO": 

PRINT DS: 

s=0 

GOTO 310 


REM 


REM. SELECCION INGRESOS/GASTOS 
REM orenaanmneci sae mena teen 
HOME: 

PRINT "1. INGRESOS" 

PRINT "2. GASTOS" 

IF OPZ< > 1 THEN 460 

PRINT “3.PUESTA A CERO" 

X= 1: 

Y =5 

GOSUB 11000: 

PRINT "CUAL 2 "; 

GET SEL$: 

PRINT SEL$: 

IF SELS < “1” OR SEL$ > "3" 
THEN PRINT BP$;: 

GOTO 460 


IF-0PZ < > 1 AND SELS$ = "3" 
THEN 460 

IF SELS = "1" THEN KV = 1: 

DH$ = "INGRESOS" 

IF SELS = "2" THEN KV = 2; 

DH$ = "GASTOS" 

IF SEL$ = "3" THEN GOSUB 1000: 
GOTO 310 


REM. PUESTA A 0 PLAN CUENTAS 
REM o er rn 
NFS = "PINC": 
LR = 36: 
GOSUB 4000 
NFS = "PPAG": 
GOSUB 4000 
AOS = LEFT (BA$,36) 
FOR 1 = 1 TO 9: 
NR = 1 
NFS = "PINO": 
SOSUB 6400 
NFS = "PPAG": 
GOSUB 5400 
NEXT 1 
PRINT : 
PRINT "NUMERO DE MOVIMIENTOS PREV 
1STOS";: 
INPUT AS 
MO = VAL (Ab): 
IF MO < 2 OR MO > 500 THEN 1100 
HOME 
X = 10: 
Y = 12: 
GOSUB 11000: 
FLASH : 
PRINT "GENERACION EN CURSO": 
NORMAL: 
G0SUB 11000 
NFS = "MOV": 
LR = 54: 
GOSUB 6000; 
ARAS = "1% + LEFTS (BA$S,53): 
NR = 1: 
SOSUB 6400 
ARS = LEFTS (BAS,54) 
FOR 1 = 1 TO MO: 
NR = 1 +1: 
GDSUB 6400: 


1150 
1300 
1510 
1320: 


1330 
1335 


1340 


1350 
1350 


1370 
1330 
1590 
1900 
1410 
1420 


1470 
1440 


1450 


1450 


1470 


1480 


FRINT "E.G.S.*; TAB( 2015 "EDICION 
ES FORUM, S.A” 
INVERSE : 
X=-X0: 
Y. 3£ 
GOSUB 11000: 
FRINT MP$: 
NORMAL 
FOP 1 = MI TO MA 
O EA A 
X = XCs 
G0SUB 11009 
11 » 1 
1F II = (MA) THEN 11 = 0 
PRINT 113“ "¿VOS (1) 
NEXT 
IM 
No ROSZ) + YC: 
== X5:3 
GOSUB 11000 
SP = 0-1 
PRINT 1-97 
GET 0-76: 
OPZ = VAL (0PZ$): 
1F 0F2% >= US$ THEN 1530 
1F OPZ 7 NV THEN: 1450 
IF 0P23 = 2ES THEN X = 5: 
GOSUE 11000: 
PRINT SPC( SP);> 
Ta mAs 
60TO 1420 
IF. ASC (0P23) > 48 AND ASC t0PZ 
%, ¿ 59 THEN YX = YS; 
GOSUR 110003 
PRINT SPE( SP»30 
1 = 0P2: 
GOTO 1420 
IF 0PZS > GIUS THEN 1450 
1 93 
GOSUB 11000: 
PRINTO SPOC SPr; 
sI + 1d . 
1F 1 (MA) THEN 1910 
GOTO 1420 
X = YC: 
YA 1x8 + YC 
ll = Il: 
1F- 1 5 NV THEN 11 = 0 
INVERSE 


PRINTLL¿0= "EVO CI) 
NORMAL 

O0-PZ 7 1 

RETURN 


SEM LINEAS RESERVADAS 


FOR: dis 1 TO SP: 
$P3 = SFE + 815; 
NEXT 
LF = LEN (PROGS) 
II O A 
DE = 40 - LP - SI 


515 
DES A. 
FOR: Js 100 TO: S1 


SI$ = SIS + blo 
NEXT: 
FOR y 1 TOD 
DES = DES + BLé 
NEXT 
NORMAL: 
PRINT "E.G.S."z TAB( 20); "EDICION 
ES FORUM, S.A." 


PRINT 51% + PROGS + DES;: y 
INVERSE 

NORMAL. : 

PRINT "VOZ “¿0PZ5z 

INVERSE : 


PRINT— SPC( 34); 

PRINT— SPO( 6);" ";VOS(OPZ) 
+ SPS; 

FRINT— SPC( 40);: 

NORMAL. 2 

FRINT HES;: 

INVERSE 


2225 


3180 


3190 


3200 


3210 


X= DX(J): 
Y = DY(J): 
GOSUB 11000: 
INVERSE : 
PRINT D$(J) 
NORMAL 
TE,TP(D) <> 5 AND TP) 
7 4 THEN 2330 
A RS 
Y = CY): 
G0SUB- 11000 
PRINT 8$(3) 
G0TO 2500 
Ni = LC(J): 
N2 = ND(J); 
1F TP(J) = 1 OR TP) = 2 
THEN C$ = NS$; 
GOTO 2350 
Cs = AS$ 
FOR 1 = 1 TO Ni - N2— 1: 
AS 7 AS + CS; 
NEXT I 
1F N2 = 0 THEN A$ = As + 08: 
GOTO 2390 
AS = AS + PDS 
FOR 1 += 1 TO N2: 
AS = AS + 2ES: 
NEXT 1 
o? ANO 
Y = CY): 
GOSUB 11000 
PRINT AS 
BD 
FOR K = 1 710 Ni - N2- 1 
B$(J) = B$(J) + BLG 
NEXT Kk 
IF N2 =- 0 THEN B$(J) = B4(0) 
+ BL$: 
GOTO 2500 
BS1J) = B$(J) + PDS 
FOR K-= 1 TO N2 
 B$(J) = BS(J) + BLAS 
NEXT K 


REM DATA ENTRY 
REMO > 


NC =J: 

X= CXI(NC)3 

Y = CY INC) 

tc =1 

GOSUB 3240 

1F FS = 0. THEN 3100 

IF FS > 4 THEN 3210 
GOTO 3120 

J=J+1; 

IF. J > NUC THEN 3030 
GOTO 3040 

ON FS GOTO 3130,3150,3170,3190 
IF J > 1 THENJY=J- 1: 
GOTO 3040 

PRINT BP9;: 

FS = 0: 

J = NUC: 

GOTO 3040 

IF J < NUC THEN J =J+1: 
GOTO 3040 

PRINT BP$;5: 

FS =0: 

GOTO 3030 

IF CC < LC(J) THEN SS = 1: 
CC. =.£C + 1: 

X=X +1; 

GOSUB 11000: 

GOTO 3060 

PRINT_BF$: 

FS = 0: 

GOTO 3100 

IF CC > 4d THEN S= - 1: 
CC = CC - 1: 

O 

GOSUB 11000: 

S50TO 3060 

PRINT BP$;: 

FS = 0: 

GOTO 3030 

IF FS > 8 THEN FS = 0: 


1851 


my 


o 


A 


Sen 


363 
304 
3650 
ob 
3670 


360 
us 


vigo 


1852 


GOTO 3060 

IF FS = S THEN FS > O 
GOTO 3100 

RELURA 


REMO LECTUFA DE LN CAMPO 


RENO Ro ri 

ES 00 

IF TRUNCA A THEN RETURN 
TE TFANICO + THEN OSUE 90 


SETURN 
JF MIOS (Esti + CC. 1> > PDS 
A 
CEC Ss 
cose 11000 
CET Ad: 
IECAS- NC IHEN SIDO 
Cher 65. tr: 
JE CA AD THEN 390 
FOR 1 -- 1 TO 15 
DE IFC (CA) TRENES 
l: 
BUSUB 3430: 
RETURN 
NEXT 
0No 35 
IF TE(NCI > 4 THEN 3440 
BOCA 45 0RCA7 4408 ICA 
5 18 AND OA = 57) THEN 341 


m 
FRIMT BE: 
SUTO 230 

1F- CA 456. THEN 3440 
GUSUB 42% 

IF SWP = 1 THEN 3400 

St: 

GOSUB 3520 k 

IF LC + LEIMT> TIEN RETURN 


Le roce de 

E TA 

GOTO FO 

Rin > E 
REM IRASPERENEIA AL BUFFER 
pEn - Prem 
VELO 41 TEN 
TS 


Sib  LEFTS (BRING EE de 
te EC LOOK? THEN 1SS + "“: 
6070: 339 

H> LC:NC+ - [Cs 

PSE = RIGHTS (ESINC>,N> 


A O 
FRINT AS; 

RETURN 

REM. ari 

REMO COMANDOS 

REMO 


IF FS 7 $ THEN 30% 

IF FS = 5 AND TPC) * 1 THEN 
GOSUE 4007 

RETURN 

1JF FS = Y THEN GOSB 13000; 


IS ES > 3 THEN GUSIA 4080: 


IF FS 31M RETURN 
ON FS - 9 GOSUB 5940, 3916 
El TURN 

RENA in 


Rem Hist A 

REM a TAS 

wc LOC FA PRINT EPS: 
RETURN 


IFECCO 1 MEN Sur 
GUIDO. 

BND 2 LEFTA (ES A 
NW <LCMNC+ - REN 

DS4 + RITO PRI 
03 = BLE 
SS 

BSIMCr + LEFTS MELON 
Va Ya 

UN 0 y 

o CA 

DAM 

le 11m. 

NA 


Y 
a 
1, 


PRINTESINCIS 
6 Mus 
TE RTIMES ERIN e DS 


e 


EA » 

REA" —POPPADO 

FM a 

VESTRANC + Y THEN TR a 


DO mies =+ e E vb 
AND CO +1 MEN RE PURM 


4006 
9015 


A020 
40 


4090 


A030 


ALO 


do 


1060 
4090 
4100 
a110 
4120 
410 


qlo 
450 


4160 
4170 
4190 
4190 
ALOO 
4210 
4220 
4230 


4240 


4230 


4260 


4270 


1eerr LIN IM AP 
RKETUEN 

JEOG O LOA BUITRES 0119 
GOTO Jaco 

NN = LEINE) - CL; 

DS$ += RIGHTS (BS/NC:,N- 
1F-CC + 1 THEN/SNS = M0 
GOTO 4016 

SN = OL EFTS (BONA OO: 4) 
1F TPC) = 1 DR TEN 
TREN Gs. = HS: 

GOTO ao 
Cd = 45$ 
BSiNC+ = SNMs + L5s + CS 
Yon X; 

YY a Y 

XA COX AND): 

Y = Cr(NC0: 

GOSYE 11060 

X= YX: 

WE NY 

PRINT BSNi0 


REM 
REM 
TF OLC(NC) = 1] THEM RETURN 
NI = LO(NC) — LC-+ 1 

IF CC» 1 THEN BSINC) = ""z 
6019 4150 
ESC) = LEFTS (BR(NC),CC 

PELA 

IF TRUNC) = 1 0R TPINC) > 2 

THEN 420% 

FOR I = 1 TO Ni 

ESINC) mn BRINC) + BLS 

NEXT 1 

GOTO 4240 
FOR I = 1 TONI 

BS(NC) = BLS + BS(NC) 

NEXT 1 

IF. RIGHTS (ESANCI, 40 A PDS 

THEN PS (NC) = BLE + LEFTS (Peím 
CHLOINOY = 1) 

X= CXNCI3 
Y CYANCI 

GOSUB 11000 

PRINT BS (NC): 

RETURN 
EMI 

REM CTRL PUNTO 
REM 


SWP = 0 
1F En 5 OR OE Y LOANCA TREN SUP 
RETURN 


FOR 1 = 1 TO LC(NC> 
IF. MIDS (BS(NC),1,1) = FDS 
THEN 1 = LC(NCT; 
SWPO= 1: 


REM 
REM PRESENTACION BALANCE 
REM e e e a a 
NFS = "PINC": 
LR = 36: 
GOSUB 6000 
NES <= "PFAG": 
GOSUB 6000 
FOR KY = 1 TO 2 
NF$ = PLANSI(KV) : 
RIKV) =.0 
FOR NR = 1 T0 9 
GOSUB 12900 
REV) = RIEV) + ( VAL (E6(4 
1) = VAL (B$(3))) 


BIL-= Ri) - R(2): 

RS(1) = STRS (R(1)): 

RS12) = STR$ (R(2)): 

BIL$ = STR$ (BIL) 

R$(1) = LEFTS (BA$,10 — LEN (R$ 
10)) + R$) 

HOME; 

RS(2) = LEFTS (EN$,10 - LEN (R$ 
(217 4 RS(2) 

BIS ” LEFTS (BAS, 1O - LEN (BIL 
$3) + BILS 

PRINT “1. EN VIDEO": 

PRINT “2. EN VIDEO E IMPRESORA" 
X= 1: 

Y = 3 
G09UB 11000: 
FPRINT "CUAL 3: 


5280 


5800 
2000 
7010: 
2020 
7030 
7090 
7050 
2060 


7070 


080 


709% 


700 
2116 


420 


AS: 


1F AS < “1% OR AS "2" THEN 5160 


IF AS = "2% THEN PRINT DS: 
PRINT DS + “FRI: 
PRINT_DS 


PRINT_ TAB( 12); "BALANCE FAMILIAR 


== 
E 
z 
Ls, 


PAINT" SITUACION: DE BALANCE. 4 


PRINT> DESVTACIONES" 


E 
Z 


PRINT TABC 16)3 "INGRESOS. "¿R$11) 
PRINT TAB 1515 "GASTOS. "¡REFZ 


IR AS = "2 THEN FRINT DS: 
PRINT DS + "PRHO": 
ERINT DE 


FRINT "PULSAR UNA TECLA": 

GOSUB 11000: 

GET A$: 

NORMAL; 

RETURN 

BENI AA 

REM APERTURA FICHERO 
REMERAS 

PRINT Ds 

PRINTDS 3 "OPEN"¿MES3", DUSDRES AL 


FRINT_Ds 

PRINT DES UREADUINFE; Y RUINA 
INPUT ARAS 

FRINT DS 

RETURN 


[A ARES 


REM,__ESCRITURA REGISTRO 
REA 
ERINT_DS 

PRINT DS 3"URTTE"¿NFE7%, 
PRINT....CHR$,.134)..+. B0$, 
PRINT-D$ 

RETURN 

REMO tc eri nilo 
REM. CIERRA FICHERO 
¡REN iaa paria 
PRINT_Ds 

PRINT DS; "CLOSE": NES 
£RINT_DS 

RETURN 

REM 
REM CIERRA cas LOS FICHEROS 


GOSUB $600; 
NFS MON: 
GOSUB $600 
pri 


REN LECTURA DE LOS DATOS 
A 
RESTORE A 
AGAD DAS 
READ NV 
FO, 1.= 1 TO NY .+ 133 
READ DAd: 
NEXT_1 
LV :0 
18,14... 2 THEN...BEAD_NUC: 
FOR UE = Y TONOS a 
REAL: DA: 
NEXT: 
6070 7150 
FORT PE TO LME 
REÁD_ DA: 
Uwe LW DA + DA £-ND= 
NEXY 1 
READ NUE 
1F NUC = O THEM 719% 
TFT <-NU' THEN READ DÁ: 
Loa e is 
6070 7120 


7130 
7190 


7130 


7160 
F1TO 
7180. 
T0O 
20600 
8010 
ams 
8017 


SOL? 


8020 
8035 
8040 
8054 
Ea 
3070 
8073 


8079 
2080 


8085 


20%0 
E 


Su1o 


8120 


8500 
8310 
2520 
8530 


30 


2560 


8600 
2610 
86520 
3430 


FOR 1 


REM LEE EN VACIO 


FOR IS 1 TOS NOCS 
READ DSrIO: 

MEXP=TS 

REM__LEE_ LES 


JECTONES 


FOR_1 <= 4 TD NUC 
READ TRATA LO CT RATA 
AAA ACI 400) 

NEXT =E 

FETURN 


HOME: 

PRINT 1. INTRODUCTION": 
PRINT_"2. PRESENTACION" 

Ade 

Y E Ss 

GOSUB P1000;5 

PRINT “CUAL 2 "o: 

GET-AL£: 

1F 8 < "1" OR AS > 2" TMEN 8017 


IF AS = "2" THEN GOSUB 8700: 
RETURN 

GOSUB 400: 

S0SUB 7000 

NES = "MOU": 

1R-= 34: 

GOSUB 5000 

NES = PLANS 

LA os 

GOSUB-£000) 

BY) = LS: 

GOSUE 2000: 

GOSUB 


TF FS THEN? RETURN 

E ES e THEN 20 

TF VAL (B$13)) a DA 

VAL Es 1 ARS 
== 00% VAL ABRI 1% 

A 

va 157 

GOSUY 110005 

FLASH: 


PRINT_ "FECHA NO VALIDA": 

FOR=I* 3100800: 

NEXT 1: 

NORMAL: 

6070 8070 

TF NAL ARSI2I) 0 DR ARTO 

= 5P8 THEN 1. 

Y LS: 

GOSUB 11000: 

FLASH: 

FRINT "ERROR EN LOS CAMEDS"s 

FOR 10% 1 10:98005 

MEXT TL: 

NORMAL: 

G0TD 8070 

GOSUB“AS00 

WES 2 PLÁNSIUV) 

NRO VAL” (BOr2rO: 

GOSUB 12906 

E O E 

4 VAL FE 

ASIA a PENA PIB FUER 
40) E 
GOSUE 12% 
Bs)? > 


REM. LECTURA MOVIMIENTOS 
REM A o e 
NFS = "MOp": 


8311) = LEFTS (A4$,20): 


BIZ)" MIDE (645. 21,1); 
B313) = MIDS (M9$,22,2): 
BS15) = MIDS (06$,24,2%: 
BS16) = MID$ (AAs, 24,8): 
Bs (7) -= MIDA (ARS, 34,20%: 
BS(8) * MIDS (448,54, 11 
MOVS = BA 31 + BS (5)+ 
RETURN 

A AS 
REM ESCRITURA MY*IMIENTOS 
REN A AR É 
NES > "MOV": 

NRós de 


GOSUB 4200: 
REC = VAL (LEFTS- 1684, Z)de 


1853 


87% 


3800 


8805 


g810 


9015 


an? 


8819 


sez0 


Beso 
2840 
seso 


8990 


8900 
8910 
3915 
8920 


1854 


REC = REC 41; 
RAS = STRS (FECr: 

ANS = ÚLEFTS (BA$,3 — LEN (AA$)) 
+ fas + LEFTS (BAS,51): 

GOSUB 4400: 

MR = REC 

Abs 


11) +BS12) + .B5(3) 


+ B313) + BS(6) + BEST) + 
STR$ (KV) 

60stB 5400 

RETURN 
PR 
REM PRESENTACION MOVIMIENTOS 
REMO mero - - 
HOME; 


PRINT "DESCRIPCION ....oooomoo.». 


" 


== 1 
Yi L3 
GOSUB 11000: 

INPUT DES$ 

PRINI 3 

PRINT-"1.. INGRESOS": 

PRINT "2. GASTOS": 

ERTMT + TODOS LOS MOVIMIENTOS" 
NA 


A ES 

PRIMT "CUAL 7 Mp 

GET SEL +: 

PRINT. SEL$: 

1F SELS - "1" OR SEL$ > "3" 
THEN 9750 

NES = "MQUY: 

LR = 54: 

GOSUB: 4090 

NR = 1: 

GOSUB ¿MO 

RE <= VAL (ARS) 

HOME 5 

PRINT "IMPRESION.": 

PRINT : 

FRINT "1. EN VIDEO": 

FPRINT "2, EN VIDEO E IMPRESORA" 
dm de 

Y=6 

GOSUB 11000: 

PRINT "CUAL 2 "ss 

GET As: 

IF ASC "1" OR AS > "2" THEN 8810 


S= VAL (46) - l3 

IF 5 = 1. THEN: PRINT DS: 

PRINT DS; "FRNI": 

FRINT DS 

0ES$ = DESS + LEFTS (BAS, 20 

= ¿LEN ¿DES$)) 

HOME: 

PRINT. TABE 137:"BALANCE FAMILIAR 

FRINT. -TABL 1615 "MOVIMIENTOS": 

NORMAL 

FRINT 

FRINT DES$;": 

PO 

R= 0 

FOR NR = 2 T0 RE 
GOSUB 8500 


1F DES9 B5(7) THEN 9976 

1 SELe B$(8) AMD SELS 
"3 THEN 9970 

R=RA 1 

PRINT : 

PRINT BS(D)/"/"¿B605)3 TAB( 11 

15B9 (46) 


15 R<7-0R-S . 1 THEN: 8910 


SAR RETURN: 


Gasub 110003 
FRINT "<ESC> PARA SALIR": 
GET AS: 


IF As CHR$ (13) AND As 
< $ CHR$ (27) THEN 8890 
TF AS = CHRS (271 THEN 
RETURN 
R=eó 

NEXT NR 

IF S *= 1 THEN RETURN 

Xx = 20: 

Y = 23; 

EOSUE 11000: 

FLASH : 


PRINT "PULSAR. UNA TECLA": 
GOSUE 11000: 
GET As: 


FOO 
9019 REM CÁLCULOS 
ROD REMO HS 
9030 IF 02 1 THEN RETURN 
9049 BSIS) ==" STRS: (VAL ABS(3)) 
-= VAL (B3(43)) 
2042 1 NAL -.(B$(45)) < 0 AND LEN (BS ( 
5); > = 8 THEN Bl = ABS l 
VAL (B3(5))):5 
B$(5) = STRS (B1): 
X a 19: 
Y 173 
GOSUB 110005 
PRINT "-" + pS(5): 
RETURN 


ETA 

5 O 

GO5Ub 11000: 

PRINT- SPOC-8/= LEN (BR(SIIGBST 

Ss) 

RETURN 

REM: =mtsos 

REM TOS 

GE: ne 

DATA "BALANCE FAMILIAR" 

10040 DATA 5 

10050 DATA “GENERACION, PLAN: DE CUENTAS" 
e MOVIMIENTOS", "BALANCE", "ESTADIS 
TICA", "IMPRESION PLAN DE: CUENTAS" 


LOGO DATA LL LAO SD AAA 
DMA 

0 DATA 5, 7.0.040 

DAIA "CODIGO", "DESCRIFCION", "TOL, 

PREV VEOTO REAL Mo UTOr: DESP:" 

10090 DATA 1,1,0,19,8,26,9 

10100 DATA 3,20,0,6,11,19,11 

10110 DATA 1,8,0,6,13,19,13 

10120 DATA 4,8,0,6,15,19, 15 

10130 DATA 2,8,0,6,17,19,17 

10140 DATA. "NOMBRE", "VOZ ", "FECHAS, 00,0 
*, "IMPORTE", "DESCR. " 

10150 DATA 3,20,0,6,11,19,11 

10160 DATA 1,1,0,6,13,19,13 

10170 DATA 1,2,0,6,15, 19,15 

10172 DATA 4,1,0,6,15,21,15 

10175 'DATA:1,2,0,6,13,22, 15 

10180 DATA 1,8,0,6,17,19,17 

10190 DATA -3,20,0,6,19,19,19 

11000 REM ==. 

11010 REM POSICIONA CURSOR 

11020 

11030 


11040 
12000 o 
12010 TON FLAN: CUENTAS 


12020 
12025 


«12030 GOSUB 7000 


12040 GOSUB 2000 
12050 NUC = 1; 
GOSUR 3000: 
IF FS. = 7 THEN RETURN 
12055 1F FS = 6 THEN 12000 
12057 1F VAL. (B4(1)) =-0/ THEN 12050 
12060 NF$ = PLAN$(+V) 
12070. UR. = 36: 
GOSUE $000 
12090.NR.= VAL. (B841)) 
12100 GOSUB 12900 
12110 -1F B$(2) =  LEFTS (BAt,20) 
THEN BS(2D = "": 
BIZ) 0 
Bs) = "0 
12120 2 = 0X(2): 
Y = CY(2): 
GOSUB- 11000: 
PRINT BSD): 
Y mm CY(3): 
G0SUB 11000: 
PRINT B$(3): 
Y 2 CU(A) 
GO0SUB 11000: 
PRINT Bs(4): 
GOSUB 9000 
12200 NUC = 5: 


TPL 

GOSUBE 3100 

TPC) = 1d: 

1F FS = 7 THEN RETURN 


12205 1F FS =.6. THEN. 12000 
12210 MR =. VAL ¿B6(1)):2 
GOSUB 12740 


12220 


12900 


12910 
12920 
12925 
12930 
12940 


12950 
12760 
12970 
12980 
12982 
12985 


12995 
13000 


13010 
13020 
13030 


13040 
13050 
13060 


13070 
13090 
13090 
13100 
13110 
13120 


13130 
13140 


13150 
131640 
13170 
13180 
14000 
140160 
14020 
14030 


14040 


14050 
14060 


14070 


14080 


14085 


14090 
14100 


14105 
14107 


14110 
14115 
14120 


14130 


14140 
14150 


REM” LECTURA PLAN CUENTAS 


B$(2) = LEFTS (0A4$,20): 
B$4(3) = MIDS (AA$,21,8): 
BS (4) = —MIDS (AA$, 29,8) 


REM ESCRITURA PLAN CUENTAS 
EAS 
NFS% = PLAN$(KY) 

BAS = ES(2) + BG(3) + ES(4): 
GOSUB 4400 

RETURN 
REN"==—== 
REM: AYUDA 

REM. —==" 

Ms 

YY = Y 

INVERSE 

K=1 

Xd 

Y = 4; 

GDSUB "11000 

PRINT HES(K) 5 

B'=. PEEK (16384) 
POKE - 16£368,0 

IF B < 128 THEN 13080 

IF B< > 160 THEN 13080 
K=Kox+d 

IF K > LH THEN 13140 
GOTO 130606 

X md: 

v=% 

GOSUB 11000 

PRINT RES; 


REM IMPRESION PLAN CUENTAS 


RE 


HOME 2 

PRINT "1. INGRESOS": 

PRINT "2. GASTOS": 

PRINT "3. INGRESOS Y GASTOS" 
xd 

Y =S 

GOSUB 11000: 

PRINT "CUAL ? ";: 

GET A$: 

PRINT AS: 

IF AS < "1" OR AS > "3" THEN 1404 
O 

As VAL (Am) 

HOME : 

PRINT “1. EN VIDEO": 

PRINT "2. EN VIDEO E IMPRESORA" 
GOSUE 11000: 

PRINT "CUAL ? ";: 

GET A$: 

PRINT A$; 

IF CAS "1" DR-AS > "2" THEN 1407 


O 

S = VAL (AS) - 1; 

1F S = 1 THEN PRINT DS: 
FRINF DS; “PRAI": 


PRINT Dg 
B= Az 
Cx=A 
IFA 2 3 THEN BD = 1: 
C=2 
FOR 11 =B TOC 
KYV05 IT 
LR = 36: 
NFS = PLANS(KV): 
GOSUB 4000 


DHS = "INGRESOS": 
IF 1 = 2 THEN DHM$ = "GASTOS" 
HOME; 
PRINT "IMPRESION PLAN DE CUENT 
As; 
PRINT ; 
PRINT "VDZ. "¿DH$ 
FOR J = 1 T0% 
PRINT 
NR = y: 
GOSUB 12900 
PRINT J; TAB( 5)5B5(2); 
TAB( 27);B3(4) 
NEXT J 
IF S =.0/ THEN X= 20: 
Y = 23: 
G0SUuB 11000: 
FLASH : 
PRINT "PULSAR UNA TECLA": 


14160 


15000 
15010 
15020 
15030 


15040 


15042 
15045 


15047 


15060 


15070 


15080 


15090 


15100 


15102 
15105 


15107 


15108 


15115 


15120 
15130 
15140 
15150 


15160 


15170 
15175 


GOSUB 11000: 
GET A$: 
NORMAL: 
NEXT T: 
RETURN 
o 
REM ESTADISTICA: 
a 
HOME 2 
PRINT "1. PARTE DE SELECCION": 
PRINT "2. PARTE: GRAFICA" 
X =1t: 
Y = 55 
GOSUR 11000: 
PRINT "CUAL 2 Mz 
GET AS: 
PRINT-AS: , 
IF AS< "1" 0R As > "2" THEN 1504 
o 
IF As = "1" THEN 15050 
IF -DR$:=> "2" THEN PRINT-DS: 
PRINT DS; "RUN HISTOGRAMAS, D1" 
HOME: 


FLASH: o 

PRINT "INTRODUCIR DISCO PROGRAMAS 
mA 

GOSUB 11000: 

GET AS: 

NORMAL: 

PRINT D$; 

PRINT D$; "RUN HISTOGRAMAS, Di" 
HOME + 

PRINT "NOMBRE A SELECCIONAR"; 
INPUT NOS: 

K= LEN (NOS); 

IF K = 0 THEN 15050 

NFS = "MOV": 

LR =.59; 

GOSUB $000; 

TL = 0 

NR = 1: 

GOSUB 6200; 

RE = VAL (AA$) 

HOME >2 

PRINT "INTRODUCIR EL TIPO.": 
PRINT 

PRINT "1. INGRESOS": 

PRINT "2. GASTOS: 

PRINT "3. TODOS 1.05 MOVIMIENTOS" 
X= 1: 

Y =7: 

GUSUB: 11000: 

PRINT "CUAL ? ";: 

GET AS: 

PRINT As: 

IAS < "1" DRAG M3" THEN 1510 
0 , 
Si» VAL (A8)=- 1 

HOME +: 

PRINT "1. EN VIDEO"; 

PRINT "2. EN VIDEO E IMPRESORA" 
O 

Y =5 

GOSUB' 11000: 

PRINT "CUAL ? "js 

GET A$: 

PRINT AS: 

IF AS < "1" OR-AS > "2 THEN 1510 


7 

IF AS == "2% THEN 55 4; 
PRINT DS: 

PRINT DS 4 PRA: 

FRINT Ds 

NR = 2: 

HOME : * 

RI=0 

GOSUB 8300: 

B2$ =- LEFTS (B5(1),K) 

1F B25< > NOS THEN 15180 
1F 51. = 2 TREN 15160 

IF BS(0) < > STRS (S1 + 1) 
THEN 15180 

RI =Ri+l: 

PRINT + 

PRINT B$(3) + "/“BS(S); TAB( 7);B 
$(7);5 TAB( 28583 (6) 

Ti=T1 + VAL (B$(6)) 

IF RI-= 9 AND. A4 < > "2 THEM X 
= 20: 

Y 21; 

GOSUB 11000: 

FLASH 1 

PRINT "PULSAR UNA TECLA": 
GOSUB 11000: 

GET At: 

NORMAL: 
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RI = 0: 
HOME . 
151890 IF NR <= RE THEN NR = NR 
+ ta 
GOTO 15120 
15190 T1$ = STR$ (TI): 
T1i$ = LEFTS (BA$,10 - LEN (T1$) 
) + Tis 
15200 PRINT— TAB( 28); "—---—- 
PRINT TAB( 28);T18 
15205 1FS = 1 THEN RETURN 
15210 X = 20: 
Y = 23; 
GOSUB 11000: 
FLASH : 
PRINT "PULSAR UNA TECLA": 
GOSUB 11000: 


Rutina gráfica 


10 RE 
20 REM BALANCE FAMILIAR 
30 REM HISTOGRAMAS 


a — 
50 — D$= CHAS (4): 
HCOLOR= 3 


40 DIM Y1(12),V2(12),SC$(12) 
55 FOR I = 1 TO 12: 
READ SC$(1): 
NEXT 1 
70 VY1$ = "INGRESOS": 
V2$ = "GASTOS" 
80 DES = "EVOLUCION BALANCE FAMILIAR 


PRINT "CUANTAS UNIDADES DISCO HAY 
Po Ural 
110 - GET AS: 
PRINT Ab: 
R$ = "1" sy 
120 IF AS = "2" THEN DRS = “2" 
130 HOME 
1490 IF DR$ = “2" THEN 170 
150  INVERSE 3 
Xx = 123 
Y = 102 
GOSUB 11000: 
PRINT "INTRODUCIR DISCO DATOS": 


160 Y=11: 


GOSUB 11000: 
GET AS 
170 — NF$ = "MOV": 
LR = 54: 
GOSUB 6000 
180 N=i1: 
GOSUB 6200 
190 RE = VAL (AAS) 
195 HOME : 
Xx = 10: 
Y = 12; 
GOSUB 11000: 
PRINT "ESPERE ,POR FAVOR" 
200 FOR I= 2 TO RE 


210 NR = l: 
GOSUB 8500 

220 7 = VAL (B$(6)) 

230 M= VAL (B$(5)) 

2 IF B$(9) = “1” THEN V1(M) 
= VI(M) + 2 
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1F B$(8) = "2" THEN V2(M) 
= Y2(M +2 

NEXT 1 

GOSUB 15300: 

IF DR$ = "2" THEN 280 

HOME : 

TEXT : 

X= 3 

Y = 12: 

FLASH : 

GOSUB 11000: 

PRINT "INTRODUCIR DISCO PROGRAMAS 


PRINT D$: 
PRINT DS; "RUN BALANCE FAMILIAR, Di 


DATA "EN", "FE", "MA", "AB", "MY", "IN 
MOLA, AG", SES, MOG", UNO", "DI" 
REM -- - 

REM APERTURA FICHERO 


PRINT DS 

PRINT DS; "OPEN"¿NFS + ",D" 
+ DRS;",L"3LR + 2 

PRINT Ds 

RETURN 
REM -- 
REM LECTURA REGISTRO 


PRINT DS; "READ"¿NFS$7".R"¿NR 
INPUT AAS 

PRINT DS 

RETURN 


REM CIERRA FICHERO 
REM o ——--- 
PRINT DS 

PRINT DS; "CLOSE"¿NFS 
PRINT DS 

RETURN 

REM > 
REM LECTURA MOVIMIENTOS 
REMO > 


GOSUB 6200 

B$(1) = LEFTS (AA$,20): 

B$(2) += MIDS (AA$,21,1): 
= MIDS (AA$,22,2): 
= MID$ (AA$,24,2): 

E$(6) = MID$ (AA$,26,8): 
= MID$ (AA$,34,20): 
= MIDS (AA$,54,1) 

MOVS = E$(3) + B$(5)2 

RETURN 


1000 REA A Á 
11010 REM POSICIONA CURSOR 
11020 
11030 


11040 
15300 
15310 REM HISTOGRAMAS 2 
15315 REM E.G.S. 1985 III 
13320 REN nn o 
15330 LX = 295: 


15340 L1 = LX / (Ni X (1 + N2)) 
15350 P =L1 £ N2 + L1 - SL: 
HGR2 : 
GOSUB 15500. 
15360 GOSUE 18000: 
GOSUB 16300 
15370 X = 25: 
Y = 1543 
10 = 1 
15380 AS = SC$(10)2 
GOSUB 20200 
15390 IF IO = Ni THEN 15410 
15400 10 = 10 + 1: 
X»Xx+P 
GOTO 15380 
15410 GOSUB 14000: 
GOSUB 16100: 


15500 Ni 
15510 REM PRESENTA TITULO 
A 
15530 FO = 25 + (N1 € (N2 4 L1) + Ni 
*L1) - Lt 
15540 IF DES = "" THEN RETURN 
15545 DES = LEFTS (DES$,29) 
15550 X = (FO - LEN (DES) £ 8) / 2: 
Y=0: 
S1=7: 
DI = 1: 
AS = DES 
15560 GOSUB 20200: 
RETURN 
15600 REM === mmm ss mm 
15610 REM  DIBUJA RECTANGULO 
15620 REM —====mmmmmencmo ios 
15640 ON TR GOSUB 15750, 15660, 15720, 156 
90: 
RETURN 
15660 FOR IR = 1 TOL1 - 1 
15670 HPLOT XR + IR,150 TO XR 
+ 1IR,150 - HR 
15680 NEXT IR: 
RETURN 
156%0 FOR IR = 1 TO Li - 1 STEP 2 
15700 HPLOT XR + 1R,150 TO XR 
+ I1R,150 - HR 
15710 NEXT IR: 
RETURN 
15720 FOR IR = 150 TO 150 » HR STEP 
Si 
15730 HPLOT YXR + 1,IR TO XR + La 
- 1, 1R 
15740 NEXT IR: 
RETURN 
15750 GOSUB 15690: 
GOSUB 15720: 
RETURN 
15800 REM! === === AN 
15810 REM PRESENTA GRUPO 
15820" REM nas 
15830 TR = 1: 
HR = V1(I1G)+ 
GOSUB 15600 
15840 XR = XR + Ldz, 
IF N2 = 1 THEN RETURN 
15850 TR = 2: 
HR = V2(I1G): 
GOSUB 15600 
15860 XR = XR + Lt: 
1F N2 = 2 THEN RETURN 
15870 TR = 3: 
HR = V3(IG): 
GOSUB 15600 
15880 XR = XR + Ll: 
IF N2 = 3 THEN RETURN 
15890 TR = 4; 
HR = V4(16); 
G0SUB 15600 
15900 XR = XR + Li: 
RETURN 
A 
16010 REM PRESENTA HISTOGRAMA 
16020 REM === name 
16030 XR = 25 
16040 FOR IG = 1 TO Ni 
16050 GOSUB 15810 


16060 
16070 


16100 
16110 
16120 
16130 
16140 


15145 
16150 


16160 


16170 
16175 
16180 


16190 


16200 
16205 
16210 


16220 


16230 
16235 
16240 


16250 


' 16260 


16270 


16280 
16300 
16310 
16330 
16340 


16350 
16355 
16360 
16365 
16370 
16373 
16380 
16390 
16393 
15400 
16410 
16415 
16420 
16425 
16430 
16435 
16440 
15450 
16460 
18000 
18010 
18020 
18025 
189030 


19040 
18050 
18040 


18070 


XR = XR + Li 
NEXT 16: 
RETURN 
RE. == 
REM PRESENTA DESCRIPCIONES 
REM 
LEFTS (V1$,10): 

LEFTS (425,10) 

LEFTS (Y3$, 10): 
V4s = LEFTS (V4$,10) 

1F V1$ = "" THEN 16170 
HPLOT 1,179 TO 5,179 TO 5,183 
TO 1,183 TO 1,179: 

HPLOT 1,181 TO 5,181: 
HPLOT 3,179 TO 3,183 

AS = "=" + ViS: 

Sí = 5 

Di = 0: 

X m6: 

Y = 179; 

GOSUB 20200 

IF N2 = 1 THEN GOTO 16260 
IF Y28 = "" THEN 16200 
HPLOT 1,186 TO 5,186 TO 1,187 
TO 5,187 TO 1,188 TO 5,188 
TO 1,189 TO 5,189 TO 1,190 
TO 5,190 

AS = "om" + Y2$; 

X= 6 

Y = 186: 

G0SUB 20200 

IF N2 = 2 THEN GOTO 16260 
IF Y3$ = "" THEN 16230 

HPLOT 85,179 TO 89,179: 

HFLOT 85,181 TO 89,181: 

HPLOT 85,183 TO 89,183: 

HPLOT 65,179 TO 05,183: 

HPLOT 89,179 TO 89,183 

AS ="="4 V3$: 

X = 90: 

Yom 179 

G0SUB 20200 

IF N2 = 3 THEN GOTO 16260 
IF VAS = "* THEN 16260 

HPLOT 85,186 TO 85,190: 

HFLOT 87,186 TO 87,190: 

HPLOT 89,186 TO 89,190: 

HPLOT 85,186 TO 89,186: 

HFLOT 85,190 TO 89,190 

AS 2 "o=" + Vas: 

X= 90; 

Y = 106: 

GOSUB 20200 

Ab = "PULSAR RETURN ": 

X= 181: 

Y = 186: 

Si = 6: 

GOSUB 20200 

GET AS: 

IF AS< > CHR$ (13) THEN 16270 

RETURN 


$ 
* 
nou 


M1 = 0: 
FOR 1 = 1 TO Ni 
IF V1I(1) > M1 THEN Mi = Y1(I) 
IF N2 = 1 THEN 16390 
IF V2(1) > M1 THEN M1 = V2(1) 
IF N2 = 2 THEN 16390 
IF V3(I) > Mi THEN M1 = V3(1) 
1F N2 = 3 THEN 16390 
IF VA(I) > M1 THEN M1 = Y4(1) 
NEXT 1 
IF Mi =- 0 THEN RETURN 
FOR I = 1 TO Ni 
VACIA = (VI(I) / M1) 4 140 


IF N2 = 1 THEN 16450 
V24I) = (V2(I) / M1) 4 140 
IF N2 = 2 THEN 16450 
V3 (1) = (V3(I) / M1) 3 140 
IF N2 = 3 THEN 16450 
VA(I) = (VA(I) / M1) 3 140 
NEXT 1 
RETURN 
REM A 


REM TRAZA EJES 
REM Ak - 
BAS = " ” 
HPLOT 25,10 TO 25,150 TO FO, 150 
TO FO, 10 TO 25,10 
Ass =“,": 
Si. = 5: 
D=0 
FOR Y = 136 TO 24 STEP -- 14 
Xx = 19 
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18080 
18090 


18100 
18110 
18120 
20000 
20010 
20020 


20110 
20120 
20130 


20135 
20140 


20145 
20150 


20155 
20150 


20165 
20170 


20175 
20180 


20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 


20610 
20611 
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FOR Y = 150 TO 10 STEP. - 28 
RO = RO + 20: 
AS = STR$ (RO)2 
X= 0: 
AS = LEFTS (BA$,4 -— LEN (A$) 
) + AS: 
AS = RIGHTS (A$,3) 
GOSUB 20200 
NEXT Y 
RETURN 
rEr — _—_—_—__—__————— 
REM CARACTERES EN HI-RES 


REM DE ALESSANDRO FIORI 
REM rr e 
REM ENTRADAS. CO=C0D.CAR. 
REM S1=TAMANO 
REM CARACTER 
REM X=COORD. X 
REM Y=COORD. Y 
Ci = CO - 31: 

S231=7 
Can. Y+ (S / 2)3 
Br=6+ Y +S; 

D=1 + Xx 

ERA NCIAS DY 
G=6+%X +8: 

E= TAX RS 

ON C1 GOSUB 20500, 20510, 20520, 205 


30, 20540, 20550, 20560, 20570, 20580, 
20590 

IF C1 < 11 THEN RETURN 

C1 = C1 - 10: 

ON'C1 GOSUB 20400, 20610,20620,206 
30, 20640, 20650, 20560, 20670, 20680, 
20690 

IF Cl < 11 THEN RETURN 

C1 = 01-10: 

ON Cl GOSUB 20700,20710,20720,207 
30,20740,20750,20760,20770, 20780, 
20790 

IF CL < 11 THEN RETURN 

Cl = C1 > 102 

ON C1 GOSUB 20800, 20810,20820, 20€ 
30, 20840, 20850, 20840, 20870, 20880, 
20890 . 

1F Cl < 11 THEN RETURN 

C1 = 01 = 10: 

ON Cl GOSUB 20900, 20910, 20920, 205 
30, 20940, 20950, 20960, 20970, 20980, 
20990 

IF C1 < 10 THEN RETURN 

C1 = C1 — 10: 

ON: C1 GOSUB 30000,30010,30020,30€ 
30, 30040, 30050, 30060, 30070, 30080: 
RETURN 

REM rm 

REM IMPRIME UNA CADENA 

REM EN HI-RES 


RE —Á 
REM ENTRADA. AS 

REM Xx 

REM AN 

REM si 


FOR 1 = 1 TO LEN (A$) | 
CO = ASC ( MIDS (A$,1,1)):3 
GOSUB 20100 
X= X+Si +1 +*D1 

NEXT 1: 


HPLOT D,B: 


Pp= 
mu 


RETURN 

HPLOT E,Y TO E,Y + 2 + (S / 2)2 
RETURN 

HPLOT F,Y TOS + X + (S / 2),Y 
TOS +X + 1S / 2),B TO F,Bz 
RETURN 

HPLOT D,Y TO X +3 + (8 / 2),Y 
TO X + 3 + (S / 2),B TO D,B: 


2,Y +5 +STOG,Y 


HPLOT X + 2,Y + 1 TO G,Y +5 
+83 

RETURN 

HPLOT E, Y TO E,B 

HPLOT D,C TO F,C: 

RETURN 


20620 
20630 
20540 
20450 


20660 


20670 


HPLOT D,Y TO F,Y: 
RETURN 
HPLOT D,C TO F,C:z 


HPLOT D,B TO F,Y: 

RETURN 

HPLOT D,Y TQ G,Y TO G,B TO D,B 
TO D, Y: 

RETURN 

HPLOT E, Y TO G,Y TO G,B: 

RETURN 


HPLOT D,Y + 1 + (S / 2) TO D,Y 
TO G,Y TO G,C TO D,C TO D,B 
TO G,B: 

RETURN 

HPLOT D,Y TO G,Y TO G,B TO D,B 

HPLOT D,C TO G,C: 

RETURN 

HPLOT D,Y TO D,C TO G,C TO G,Y 
TO 6,B:z 

RETURN ' 

HPLOT G,Y TO D,Y TO D,C TO G, 
TO G,B TO D,B TO D,Y + 5 + (S 
£ 2) 

RETURN 

HPLOT G,Y TO D,Y TO D,B TO G,B 
TO G,C TO D,C: 

RETURN 

HPLOT D,Y TO G,Y TO G,B: 

RETURN 

HPLOT D,C TO D,Y TO G,Y TO G,B 


TO D,B TO D,C TO G,C: 

RETURN 

HPLOT D,E TO G,B TO G,Y TO D,Y 
TO D,C TO G,C: 

RETURN 

HPLOT E,C 

HPLOT E,B: 

RETURN 

RETURN 

MPLOT F,Y TO D,C TO F,Bs 
RETURN 

HPLOT DY +2. + (S:/2).T0:G,Y 
DA 

HPLOT D,Y +5 + STO G,Y * 5 
+ 8: 

RETURN 

HPLOT D,Y TO F,C TO D,B: + 
RETURN , 
HPLOT D,Y + 1 + (S / 2) TO D,Y 
TO G,Y TO G,C TO: D,C TO D,Y 
+4 + (S / 2) 

HPLOT D,B + 1: 

RETURN 


TO F,Y TO F,B 


TO D,Y TO G,Y 
170 F,Y +2 + (S 


HPLOT-F,Y + 4 + (5 / 2) TO F,5 
+ Y +3 

RETURN 

HPLOT F,B TO D,B TO D,Y TO F,Y: 
RETURN 

HPLOT G,B TO D,B TO D,Y TO G,Y 
HPLOT F,Y + 1 TO F,Y +5 +8 
RETURN 

+B TO D,Y TO F,Y 
C: 


HPLOT F.Y TO F,B TO D,B TO D,Y 
+*35+(59 / 2) 


HPLOT D,Y TO D,B 
HPLOT F,Y TO D,C TO F,B: 


HPLOT D,Y TO D,B TO F,B: 


HPLOT D,B TO D,Y TO E,C TO F,Y 


HPLOT D,B TO D,Y TO F,B TO F,Y: 


RETURN po AMS PAD GRA e id A A 
20970 HPLOT D,Y TO F,Y TO F,B TO D,B RETURN 
ei D Vara Ls ds "ETA ID CA 2 30030 JESICA TODIE-TDOTESA TONES: IAEA TA 
20980 mor e 30040. e 
RETURN 
a o A IR AY TIE TUD AA 
20990 HPLOT F,B TO D,B TO D,Y TO F,Y TO F, Y 
to A A 


EAEIOS : E AS 
30000 HFLOT DB TO'D,Y TO F, Y. ¿NEO BSBNENE! UTE SI 
10 D,C RETURN 
TURN 30071 HPLOT D,Y TO E,C: 
A ETA 
TO D,Y TO F,Y: 30080 HPLOT D,Y TO F,Y TO D,B TO F,Bz 
MA RAMRAREMEAT  REAS 
30020 HPLOT E,B TO E,Y 
ÉS 


> 


| 
ll 


RELACION DE LAS VARIABLES - VERSION APPLE 


= carácter adquirido por teclado HES(+) = descripción de ayuda 
= buffer de comunicación con disco  LC(xw) = longitud de los campos 
= buffer de la data entry = longitud del registro 
= CHR$(7) (beep) = nombre del programa 
= código ASCII del carácter introdu- = número campo actual 
cido = número decimales del campo 
= Campo actual en la data entry = nombre de los ficheros 
= número registro seleccionado 
asordenedas de e Campos = número voces menú principal 
descripciones = opción 
= parte derecha del buffer = número de un registro 
5 ed = parte izquierda del buffer 
=pogrdenadas descripciones = cód. teclas func. reconocidas 
= código de la tecla funcional pul- = tipo del campo 


sada = voces del menú principal 
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El Apple !l utilizado en el desarrollo de los programas 
emplea un monitor monocromático. 
En la foto de al lado puede verse el menú principal del 


5,8 EDICIONES DRUM, 
procedimiento, mediante el cual es posible seleccionar Esbie 8 den FORYN 
las diferentes funciones. Como el Apple no permite la ( po a! Ps DF cl HTA! 
gestión de los sprites ni tampoco puede presentar "A GENERACIO qe ; AS 
figuras gráficas en una página vídeo de texto, el 2- MOVIMIENTOS 
indicador de las voces se ha formado utilizando dos 3- BALANCE 
caracteres estándar: el signo menos y el símbolo 4- ESTADISTICA 
“mayor que». IMPRESION PLAM DE CUENTAS 
El desplazamiento del indicador se obtiene pulsando FIN DE LA TAREA 


las teclas numéricas o la barra espaciadora; la 
selección se efectúa con la tecla RETURN. 


La segunda foto muestra la máscara de introducción de 
los movimientos, que es idéntica a la ya vista del 
Commodore 64, excepto la presencia de la línea que 
indica los comandos utilizables: 


EDICIOMES FORUM. 


CTRL + Y = Ayuda | 
RETURN = Alinea y convalida 
CTRL + W,A,S,Z = Desplazan el cursor en las cuatro 
direcciones >. 
CTRL + 1 = Inserta un carácter HARE ”k0n 
CTRL +D = Borra un carácter APRA NN» 
CTRL + E = Introducción en disco 
CTRL + R = Vuelve al menú 


El histograma que representa la evolución anual del 
balance se traza utilizando una adecuada rutina EVOLUCION SALANCE FAMILIAR 
gráfica, presentada por separado en el listado y 
cargada automáticamente por el programa principal. 
En la foto puede observarse la diferente estructura de 
los caracteres alfanuméricos con respecto a los 
caracteres normales ASCI!. De hecho, los caracteres 
también se han trazado en la modalidad gráfica, y están a 
constituidos por una sucesión de segmentos 
rectilíneos. Esto se debe a que, trabajando en página 
—M 


gráfica, no es posible presentar los caracteres estándar 
que se obtienen por teclado. 


EN FE MA AO my JN DL MA SE DC Ma Di 


Ms 1 AO 
A MATOS PULSE RETURN 


La última foto muestra el cuadro resumen de la 

situación de balance. El ordenador ha vuelto a la 
modalidad de texto, y los caracteres vuelven a ser los BALANCE FAMILIAR 
normales. 


SITUACION DE BALANCE 


DESUIACIONES 


INGRESOS 
GASTOS 
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Los listados / Versión Philips VG 8010 


Principal 


VO REM Si 

20 REM BALANCE FAMILIAR 

30 REM Version MSX 

ADT REM 

SO Wis$="REBOBINAR LA CINTA":W3%="QUE CONTIENE LOS PROGRAMAS" 

60 W4$="PULSE LA TECLA PLAY":W5$="A1l terminar la carga pulsar el comando RUN" 
70 KEY OFF: WIDTH 40 

80 - REM CONSTANTES 

90 BP$="D4L3ODFB": AS$=CHR$ (45) :BL$=" ":MPS$="MENU" 

100  SZ=2:MI=1 

110 X0=5: YO=1: XC=3: YC=4: XS=1:LH=8: 

120 US$=CHR$ (13) : ZE$=CHR$ (48) : GIUS=CHRS (32) 

130 Hi$="E.G.S. Ediciones Forum,S.A." 

140 REM CARGA VOCES 

150 RESTORE 

1560 READ PROG$ 

170 READ NV 

180 FOR I=i1 TO NV:¿READ VO$(1):NEXT 

190 MA=NV+1 

200 VO$(MA)="Fin de tarea" 

210 FOR I=1 TO 15 

220 NEXT 1 

230 REM MAIN 

240 GOSUB 1300:REM MENU 

250 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

260 ON 0OPZ GOSUB 20000,20000 

270 GOTO 240 

1300 REM -- 
1310 REM MENU PRINCIPAL 

IL REMIARR 

1330 CLS 

1340 X=1:Y=0:GOSUB 11000:PRINT CHR$(1);CHR$(£H58)5:FOR V=1 TO 6:PRINT CHR$(1)5CH 
R$(LHS7)3 ¿NEXT V3PRINT CHRS(1); CHR$ (£HS9) 

1350 X=XC+7:Y=0:G0SUB 11000:PRINT H1$:X=1: Y=Y+1:GOSUB 11000:PRINT CHR$(1);CHR$ (% 
HS6)3" "¿MPS;" ";CHRS(1)¿CHR$S(LHS6); 3 Y=Y+1:X=1:GOSUB 11000:PRINT CHR$(1)5 CHAS (8H 
s6Y3" "¿CHR$(1)3CHR$(8H56)3 23 PRINT SPACES (5); + PRINT PROG$+DES 

13560 X=1:Y=Y+1:GOSUB 11000:PRINT CHR$(1);CHRS(£H5A)3:FOR V=1 TO 6: PRINT CHR$(1); 
CHR$ (H57)3 ¿NEXT V2PRINT CHR$(1)3CHR$(2H51)3: FOR V=1 TO 30:PRINT CHR$(1)5 CHR+$ (2H 
57);:NEXT Y 

1370 FOR 1 = MI TO MA 

1380 VY=14S7+YC:X=XC:GOSUB 11000 

1390 11=1 

1400 IF Il= (MA) THEN 11=0 

1410 PRINT 11;"-"“3V04 (1) 

1420 NEXT 

1430 I=MI 

1440 Y=1KSZ7+YC: X=XS:GOSUB 11000 

1450 SP=YC-1 

1460 PRINT "->"; 

1470 OPZS6=INKEY$: IF OPZ$="" THEN 1470 

1480 OPZ=VAL (0PZ%):1F OPZ$=US$ THEN 1560 

1490 IF OPZ >NV THEN 1470 

1500 IF 'OPZ7$=ZE% THEN X=XS3GOSUB 11000:PRINT SPC( SP): 1=MA:GOTO 1440 

1510 IF ASC(0PZ%)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP)3:1= 
OFPZ:GOTO 1440 

1520 IF 0PZ% <> GIUSTHEN 1470 

1530 X=XS:GOSUB 11000:PRINT SPC( SP)3 

1540 I=I+1:1F 1> (MA) THEN 1430 

1550 GOTO 1440 

1560 X=XC: Y=IkxSZ+YC 

1570 11=1:1F 1 > NV THEN 11=0 

1580 PRINT 11;"-";V0$(1) 

1590 OPZ =1 

1600 RETURN 

10000 REM --=---= 

10010 REM DATOS 

10020 REM ----- 

10030 DATA "BALANCE FAMILIAR" 

10040 DATA 2 

10050 DATA "G racion y Movimientos”, "Balance, Estadistica e Impresion" 

11000 REM ===>. 

11010 REM POSICIONA CURSOR 

11020 REM === noo a 

11030 LOCATE X,Y ; 

11040 RETURN 

20000 REM mm 

20010 REM carga programa 

20020 REM == 

20030 CLS:X=9:Y=8:GOSUB 11000: PRINTW1S 

20040,Y=Y+2:G0SUB, 11000: PRINT W3$ 

20050 FOR I=1 TO SO0: NEXT 1 

20060 X=9: Y=20: GOSUB 110001PRINT "CONTINUO (S/N)" 

20070 Ré=INKEYS: IF R$<>"" THEN 20100 

20080 X=25:GOSUB 11000: PRINT" ":GOSUB 11000: PRINT"  " 

20090 GOTO 20070 

20100 1F R$="N" OR R$="n" THEN RETURN 

20110 IF R$="S" OR R$="s" THEN 20130 

20120 1F R$<>"S" OR R$<>"s"OR R$<> "N" OR RS<>"n" THEN 20070 

20130 CLS:X=9:Y=10:GOSUB 11000: PRINT W4% :X=5: Y=Y+8:GOSUB 11000: PRINT"pulsar R 


ETURN para continuar” 
20135 R$=INKEYS:1F R$="" THEN 20135 
- 20137 IF R$ <> CHR$(13) THEN 20135 
20140 CLS:X=3:Y=10:GOSUB 11000: PRINTWSS$ 
20150 FOR 1=1 TO 2000:NEXT I:CLS 
22000 1F OPZ7=2 THEN 22020 
22010 CLOAD "PROG/1" 
22020 CLOAD "PROG/2" 


PROG / 1 


13 REM _ BALANCE FAMILIAR 
15 REM Version MSX 


20 MAXFILES=2 

21 CLEAR 7000 

22 DEFINT A-S,U-W 

23 DEFDBL T,Z 

27 Wi$="PREDISPONGA EL GRABADOR PULSANDO":W28="PLAY Y RECORD":W3$="REBOBINE LA C 
INTA PULSANDO" 

29 W4$="ESFERAR":W5I$="ESTA PREPARADO ? (pulse S para conti- nuar: pulse N para 
volver al menu)" 

35 DIM DH$(3),TL$(4),SC$(12),T1(12),15(12),N(22) 

40 DIM TF(15),TP(20),LC(20),ND(20),CX (20) ,CY (20), DX (20) ,DY (20) 

50 DIM B$(20),D$(20),V0$(10),C$(8),F15(2),BB$(9),CC0$(9),AA$ (100) 

52 DH$(1)="Inmgresos”:DH$(2)="Gastos ":DH$(3)="Impresion total" 

55 KEY OFF:KEY 1,CHR$(15) :KEY 2,CHR$(16) ¿KEY 3,CHR$(17) :KEY 4,CHR$(19):KEY 5, CHR 
$ (20): WIDTH 40 

60 REM CONSTANTES 

65 Al=1:42=31:BP$="D4L30ODFE":NS$="=": AS$=CHR$ (45) :PD$=". ":BL$=" ":ER$="E":MPS="M 
ENUYiSL$="/" 

70 FS=CHR$ (1) +CHR$ (87) 

72 Fi$="": FOR I=0. TO 39:F1$=F1$+F$:NEXT 1 

73 Q$=STRINGS (33, AS$) 

80  SZ=2:MI=1 . 

90 X0=5: YO=1; XC=3: YC=3: XS=1:LH=8:L1=54:L.2=36:ND=7 

100 US$=CHR$ (13): ZE$=CHR$ (48): GIUS$=CHRG (32) 

110 HE$="CTRL Y (AYUDA) " 

115 H1s="E.G.S. Ediciones Forum,S.A." 

120 REM CARGA VOCES 

130 RESTORE 

140 READ PROG$ 

150 READ NV 

160 FOR I=1 TO NV:¿READ VO$(1):NEXT 

170  MA=NV+1 

180 VOS(MA)="Fin de tarea" 

190 FOR I=1 TO 15 

200 READ TF (1) 

210 NEXT I 

220 REM MAIN 

230  GOSUB 1300: REM MENU 

240. IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

260 ON OPZ GOSUB 12000,8000, 16000, 20000 

290 GOTO 230 

LIDOMREM in la ii - 

1310 REM MENU PRINCIPAL 

LIZOUREN Ri 

1330 CLS 

1335 X=1:Y=0:GOSUB 11000: PRINT CHR$(1)3CHR$(2H58);: FOR V=1 TO 6:PRINT CHR$(1)¿CH 
RS(H57); 1 NEXT V:PRINT CHR$(1)3CHR$ (2H59) 

1340 X=XC+7:Y=0:GOSUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUB 11000:PRINT CHR$(1)3CHR$ (% 
HS6)3" "¿MPS;" "5CHR$(1)5CHR$(2H56) : Y=Y+1:X=1:GOSUB 11000: PRINT CHR$ (1); CHRS (2H5 
bj" "3 CHRS (1) 5CHR$ (H56) 5: PRINT SPACES (5);:PRINT PROG$+DE$ 

1345 X=1:Y=Y+1:GOSUB 11000:FRINT CHR$(1);CHR$ (HSA); FOR V=1 TO 6:PRINT CHR$(1)3 
CHR$ (2457) 3 : NEXT V:PRINT CHR$(1)3CHR$(2H51);:FOR V=1 TO 30:PRINT CHR$(1); CHRS (8H 
S7)3:NEXT Y 

1350 FOR 1 = MI TO MA 

1360 Y=1I*SZ+YC:X=XC:GOSUB 11000 

1370 11=1 

1380 IF Il= (MA) THEN Il=C 

1390 PRINT I1;"-";V0S$(1) 

1400 NEXT 

1410 I=MI 

1420 Y=IXxSZ+YC:X=XS:GOSUB 11000 

1430 SP=YC-1 

1440 PRINT "->"3 

1450 OPZ$=INKEYS$: IF OPZ$="" THEN 1450 

1455 OPZ=VAL(0PZ$):1F OPZ$=US$ THEN 15:30 

1460 IF OPZ >NV THEN 1450 

1470 IF OPZ$=ZE$ THEN X=XS:GOSUE 11000:PRINT SPC( SP);: I=MA:GOTO 1420 

1480 IF ASC(OPZ$)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP)z: 1= 
OFZ:GOTO 1420 

1490 IF" 0PZ$% <> GIUSTHEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( SP); 

1510 I=I+1: 1F 1> (MA) THEN 1410 

1520 GOTO 1420 

1530 X=XC: Y=I*SZ+YC 

1540 1II=1:1F 1 > NV THEN II=0 

1560 PRINT II;"-";VO0$(1) 

1580 DPZ = 

1590 RETURN 

2000 REN "===" ==—==icmmmtivio 

2010 REM PRESENTA MASCARA 

LLO: REN. di 
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2030 CLS 

2130 L=LEN(VOS(0PZ))=3 

2140 FM=(29-L)/2 

2150 X=1:Y=0:GOSUB 110001PRINT CHR$(1)3CHR$(2H58)3: FOR V=1 TO 6: PRINT CHR$(1)3CH 
R$ (2H57) 3: NEXT V:PRINT CHR9(1)3CHRS (LHS9) 3 X=XC+7: GOSUE 11000:PRINT HIS: 
2190 OPZ4=LEFTH(STR$(0PZ),2) 

2195 Y=Y+1:X=1:GOSUB 11000:PRINT CHR$(1);CHRS(2H56)3"VOZ";OPZ$;" "3CHR$(1)3CHRS( 
2H56) 

2200 Y=Y+2:X=1:GOSUB 11000:PRINT CHR$(1)¿CHR$(2HS5A)3:FOR V=1 TO 6:PRINT CHR$(1); 
CHR$(£H57) 3: NEXT Vi PRINT CHR$(1)3CHR$(2H51)3: FOR V=1 TO 30: PRINT CHR$ (1) 5CHR$ (8H 
57)3:NEXT Y y 

2215 Y=Y=1:X=11G0SUB11000:PRINT CHR$(1)3CHR$ (£H56)3" "5 CHR$(1) 5 HRS (LHS6) 
¿PRINT_OSPC(FM);:PRINT VOS(0PZ);:PRINT SPC(FM) 

2216 1F M=1 THEN RETURN 

2218 Y=21:X=0:GOSUB 11000: PRINTF1S 

2220 X=25:Y=22:G0SUB 11000:PRINT HES 

2240 FOR J=1 TO NUC 

2245 A$= "0 

2270 X=DX(J):Y=DY(J):GODSUB 11000:PRINT D$(J) 

2280. 1E TP(I) <>5 AND TP(I) <> 4 THEN 2310 

2290 X=CX(J):Y=CY(J):GOSUB 11000 

2300 PRINT B4(J): GOTO 2500 

2310 Ni=LC(J):N2=ND(3):31F TP(J)=1 OR TP(J)=2 THEN C$=NS$:GOTO 2350 
2340 C4=AS4 

2343 GOTO 2343 

2350 A$=STRINGS (NI=N2-1,0$) 

2360 IF N2=0 THEN A$= A$+C$:GOTO 2390 

2370 AK=A$+PDS 

2380 FOR I=1 TO N2:AS=A$+ZE$:NEXT 1 

2390 X50X (9): Y=0Y (3): G0SUB 11000 

2400 PRINT As 

2410" B£ (3) =SPACES (N1=N2=1) 

2492 ES(J)=B$(J) +RIGHTS (A$,N2+1) 

2500 NEXT J 

2510 RETURN 

3000 REM ========== 

3010 REM DATA ENTRY 

3020 REM n= 

3030 J=1 

3040 NE=J: X=CX (NC): Y=CY (NC) 

3050 CC=1 

3060. GOSUB 3240 

3070 IF FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3090 GOTO 3120 , 

3100 J=3+1:1F JANUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 

3130 1F J>1 THEN J=I-1:GOTO 3040 

3140 PLAY BP$ :FS=0: J=NUC: GOTO 3040 

3150 1F J< NUC THEN J=J+1:G0TO 3040 

3160 PLAY BP+$:FS=0:G0TD 3030 

3170 1F CC<LC(J) THEN S=13CC=CC+1:X=X+1: GOSUE 11000:GOTO 3060 
3180 PLAY BP$:FS=0:GOTO 3100 

3190 1F CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB 11000:GOTO 3060 
3200 PLAY BP$:FS=0:GOTO 3040 - 
3210 1F FS>8 THEN FS=0:GOTO 3060 

3220 1F FS=8 THEN FS=0:GOTO 3100 

3230 RETURN 

3240 REM === 

3250 REM LECTURA DE UN CAMPO 

3260 REM ==============o=== 

3270 FS=0 

3280 IF TP(NC)=4 THEN RETURN 

3290 1F TP(NC)=2 THEN GOSUB 9000: RETURN 

3300 1F MID$(B$(NC),CC,1)=PD$ THEN X=X+S:CC=CC+S 

3310 GOSUB 11000 

3320 At=INKEYS: 1F Ag= "! THEN PRINT"P"5:G0SUB11000:PRINTMIDS (BS (NC), CC, 1) 31 GOSU 
B11000: 60103320 

3330 CASASC(A$): 1F CA > A2 THEN 3380 

3340 FOR l=1 TO 15 

3350 1F TF(1)= CA THEN FS = 1: GOSUB 3630: RETURN 

3360 NEXT 1 

3370 GOTO 3320 

3380 IF TP(NC)<>1 THEN 3440 , 

3390 1F CA=45 OR CA=46 OR (CA>=48 AND:CA<=57) THEN 3410 
3400 PLAY BP$:GOTO 3320 

3410 1F CA <> 46 THEN 3440 

3420 GOSUB 4270 

3430 IF SWP=1 THEN 3400 

3440 S=1: GOSUB 3520 

3450 1F CC=LC(NC) THEN RETURN! 

3460 CC=CC+1:X=X+*1:GOTO 3300 

3320 REM —=========nominio 

3530 REM TRANSFERENCIA AL BUFFER 

3340 REM == ie 

3550 IF CC=1 THEN SN$= "":GOTO 3570 

3560 SNSSLEFTS (BS (NC), CC=1) 

3570 1F COSLC(NC) THEN DS$= "":GOTO 3590 

3580 N=LC(NC)=CC: DS$=RIGHTS (BG (NC), N) 

3590 BS(NC)=SN$+A4+DS$ 

3620 PRINT As: RETURN 

3630 REM ---"=-=-- 

3640 REM COMANDOS 

3650 REM ---==--- 

3660 1F FS>5 THEN 3690 

3680 RETURN 
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3690 1F FS=9 THEN GOSUB 13000: RETURN 
3700 1F FS=8 THEN GOSUB 4080: RETURN 

3710 IF FS<8 THEN RETURN 

3720 ON FS-9? GOSUB 3740,3910 

3730 RETURN 

3749 REM. =="====== 

3750 REM INSERCION 

3760 REN ========= 

3770 1F CO=LC(NC) THEN PLAY BP: RETURN 
3780 IF CC=1 THEN SN$= "":GOTO 3800 

3790 SN$=LEFTS$(B$ (NC) ,CC-1) 

3800 N=LC (NC) -CC+1:DS$=RIGHTS (B$(NC),N) 
3810 IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
3820 Có$=BLS$ 

3830 AS=SN$ +C3+DS$ 

3840 BS(NC)=LEFTS(A$, LC (NC)) 

3890 XX=X: YY=Y 

3860 X=CX (NC) : Y=CY (NC): GOSUB 11000 

3870 X=XX: Y=YY 

3880 PRINT B$(NC):S=-1 

3890 IF RIGHTS (B$(NC),1)= PDS THEN 3780 
3900 RETURN 

3910 REM =r===- 

3920 REM BORRAR 

3930 REM -—-==-- 

3940 IF TP(NC)<>1 THEN 3960 

3950 1F MID$ (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
3960 1F CC<1 THEN PRINT BP$: RETURN 
3970 IF CC=LC(NC) THEN DS$= ""; GOTO 4000 
3980 N=LC(NC) -CC:DS$ =RIGHTS (B$(NC),N) 
3990 IF CC=1 THEN SN$= "": GOTO 4010 
4000 SN$=LEFTS$ — (B$(NC),CC-1) 

4010 IF TP(NC)=1 OR TP(NC)=2 THEN C$=NS$ 
4020 C$=AS$ 

4030 B$(NC)= SNS +DS$ +C$ 

4040 XX=X3 YY =Y 

4050 X=CX (NC): Y=CY (NC) : GOSUB 11000 

4060 X=XX: Y=YY 

4070 PRINT B$(NC)3:5=1: RETURN 


4080 REM =======-- 
4090 REM ALINEADOS 
4100 REM ========- 


4110 IF LC(NC)=1 THEN RETURN 

4120 Ni=LC(NC)=CC+1 

4130 IF CC=1 THEN B$(NC) = ""z GOTO 4150 
4140 BS(NC)= LEFTS (B$(NC),CC-1) 

4150 IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
4160 FOR I=1 TO Ni 

4170 B$(NC)=B$(NC)+BL$ 

4180 NEXT 1 

4190 GOTO 4240 

4200 FOR I=1 TO Ni 

4210 BS(NC)=BLS +B% (NC) 

4220 NEXT 1 

4230 1F RIGHTS (B$(NC),1) =PD$ THEN BS(NC)= BL$ +LEFTS$ (B$ (NC) ,LC(NC)—1) 
4240 X=CX (NC) : Y=CY (NC) 

4250 GOSUB 11000 

4260 PRINT BS$(NC): RETURN 

AZIO. REM == ==== 

4280 REM CTRL PUNTO 

4290._REM,. === ==" ==. 

4300 SWP = 0 

4310 1F CC=1 OR CC=LC(NC)” THEN SWP =1: RETURN 
4320 FOR I=1 TO LC(NC) 

4330 1F MID$(B$(NC),1,1)= FD$ THEN I = LC(NC): SWP=1: RETURN 
4340 NEXT 1: RETURN 

6000 REM === moron mn mn o 

6005 REM CARGA DE DATOS 

6010. REM === momo cm 

6020 CLS: X=3:Y=18:GOSUB 11000: PRINTW3S 
6025 Y=Y+1:GOSUB 11000:PRINT LEFTS(W25, 4) 
6030 FOR I=1 TO 1000:NEXT 1:Y=22:G0SUB 11000: PRINTWS$; 
6040 R$=INKEYS: IF R$: THEN 6040 

6045 1F R$="S" OR R$= THEN 5060 

6050 IF R$="N" OR R$="n" THEN RETURN 
6035 IF R$<>"S" OR R$<>"s" OR R$<>"N" OR RE<>"n" THEN 6040 
6060 CLS:X=15: Y=10:GOSUB 11000: PRINTW4$ 
6135 OPEN "CAS: INC” FOR INPUT ASH1 

6137 FOR T=1 TO 9 

6140 INFUT +41,BBS(T) 

6142 NEXT T 

6145 CLOSE” $1 

6147 OPEN "CAS:SPE" FOR INPUT AS*1 

6150 FOR S=1 TO 9 

6152 INFUT +1,CC$(S) 

6155 NEXT S 

6157 CLOSE 41 

6160 OPEN "CAS:MDV" FOR INPUT AS41 

6163 INPUT $41,AA$(0) 

6165 PA=VAL(AAS$ (0)) 

6167 IF PA=0 THEN 6180 

6170 FOR L=1 TO PA 

6172 INPUT *+1,AA$(L) 

6175 NEXT L 

£180 CLOSE +1 

6200 RETURN 

£300 ¿REM ao mm e is 
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REM GRABACION DATOS 

REM np ae 

CLS:X=3:Y=18: GOSUB 11000:PRINT W38:Y=Y+1:GOSUB 11000: PRINTW2$ 
FOR I=1 TO 1000:NEXT 1:Y=22:GOSUB 11000: PRINTWS$; 
R$=INKEYS: IF R$="" THEN 6530 

IF Ró$="S" OR R$="s" THEN 6550 

IF Ré$="N" OR R$="n"” THEN RETURN 

IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 6530 
CLS: X=15: Y=10:GOSUB 11000: PRINTW4S 

OPEN "CAS: INC" FOR OUTPUT ASt1 

FOR K=1 TO 9 

PRINT 41,BBS (K) 

NEXT K 

CLOSE +1 

OPEN "CAS:SPE” FOR OUTPUT AS41 

FOR K=1 TO 9 

PRINT $1,CC$(K) 

NEXT K 

CLOSE +41 

OPEN "CAS:MDV" FOR OUTPUT AS+1 

FOR K=0 TO PA 

PRINT 41,AAs (K) 


RESTORE 10090 

FOR 1 = 1 TO NV:READ NUC(1) 

NEXT 1 

IF 0PZ=3 THEN GOSUB 7200:GOTO 7071 
GOSUB 7220 

NUC=NUC (0PZ) 

FOR I=1 TO NUC 

READ D4(1)> 

NEXT 1 

FOR 1 = 1 TO NUC 

READ TP(1),LC(1),ND(1>,DX(1),DY(1),CX(1),CY (1) 
NEXT 1 

RETURN 

RESTORE 10100: RETURN 

RESTORE 10170: RETURN 
REMA 


REM 

GOSUB £000 

IF R$="n" OR R$="N" THEN RETURN 

CLS:M=1:GOSUB 2000: X=2:Y=6:GOSUB 11000: PRINT "INTRODUCIR OPCION ELEGIDA" 
X=10:Y=10:GOSUB 11000:PRINT"1) INTRODUCCION MOVIMIENTOS" 
X=10: Y=Y+2:GOSUB 11000:PRINT"2) IMPRESION DE MOVIMIENTOS” 
Y=Y+2:GOSUB 11000:PRINT"O) VUELVE AL MENU PRINCIPAL" 
X=13: Y=Y+3: GOSUB 11000: PRINT "ELIJA" 

Q$=INKEY$: IFOS$ <> "" THEN 8110 

X=19:GOSUB 11000: PRINT " M':SOSUB 11000:PRINT "  " 

GOTO B100 

Q=VAL (0$): 1F 0<O OR 0>2 THEN 8100 

IF 0=0 THEN RETURN 

IF 0=2 THEN 8600 

CLS:M=1:G0SUB 2000:X=2:Y=6:G05UB 11000: FPRINT "INTRODUZCA OPCION ELEGIDA" 
X=12:Y=10:G0SUB 11000;PRINT"1) INGRESOS" 
X=12:Y=Y+2:GOSUB 11000:PRINT"2) GASTOS" 

Y=Y+2:GOSUB 11000:PRINT"O) VUELVE AL MENU" 

X=15:Y=Y+3: GOSUB 11000: PRINT "ELIJA" 

SEL$=INKEYS: IF SEL$ <> "" THEN 8140 

X=21:G0SUB 11000: PRINT " fl": SO0SUB 11000:PRINT "  ” 

GOTO 8132 

SEL=VAL (SEL$): 1F SEL=0 THEN 8120 

IF SEL>2 THEN 8120 

M=0:B$ (4) =SL$: GOSUB 7000 


GOSUB 2000 

X=7:Y=6:GOSUB 11000:PRINT DH$(SEL)> 
GOSUB 3000 

IF FS=7 THEN RETURN 


IF FS=9 THEN 8145 
1F FS=6 THEN B120 
AS=LEFTS (BG (7), 1) 
IF ASC(A$)=32 OR ASC(A+$)=45 THEN GOSUB 9150:GOTO 8145 


N=VAL (B6(2)): IF _N<1 THEN GOSUB 9150:GOTO 8145 
IF VAL(B$(6))=0 THEN GOSUB 9150:G60T0 8145 


IF VAL(B$(3))>31 OR VAL(B$(5))>12 THEN GOSUB 9150:GOTO 8145 

IF SEL=2 THEN B$(8)="2":GDTO 8185 

Bs(8)="1" 

PA=FA+1: 1F PA=101 THEN 9500 

ARAS (0) =STR$(PA) 

ARAS IFA) =B$ (1) +B$ (2)+B9 (3) +B$ (5) +BS (6)+B8 (7)+BS (8) 

IF SEL=2 THEN 8197 

C$(1)=LEFTS (BE$(N),20):04$ (2) =MIDS (BBS(N), 21,9): 0%(3)=MI1DS (BBS (N), 29,8) 
G0TO 8200 

C$(1)=LEFTS (COS (N),20):0$ (2) =MIDS(CC$(N),21,8):0$(3)=MID$ (CC$(N), 29,8) 
Z=VAL (C$ (3)): Z1=VAL (B$(6)):22=Z1+Z 

C$ (3) =STR$(22) 

24=LEN(C$(3)):C$(3)=RIGHTS$ (C0$(3),24-1) 

Z3=8-LEN(C$(3))2 1F Z3=0 THEN 8210 

FOR K=1 TO Z23:C$(3)=BL$+0$8 (3) : NEXT K 
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alo 
B210 1F SEL=2 THEN 8217 


1 JO: AR A ES e 
8222 RS=INKEVS: IF R$="" THEN 8222 
8225 1F R$="0" THEN 8; A > abs pu 
o 30 
É SS e sardal 4 
- O e 2 ae De mn O e 
8600 CLS:M=1:GOSUB 2000: X=92Y=10:GOSUB 11000: PRINT "1) SU IMPRESORA": Y=Y+21 605U 
A AO O >”. >.s 1 47 Le 
8605 PRINT "2) SU PANTALLA": Y=Y+2: GOSUB 11000: PRINT «33 VUELVE AL MENU" 
510 X=12: Y=Y+5: 608 PRINT "ELIJA" s —.. deme 2 ol 
1 ol AA 


GOSUB 11000: PRINT"INTRODUCIR LA DESCRIPG ION SELECCIONADA" 


64 e E PRINTS 22m mio e e AS Aaa e A 
8642 Y=v+t: 6OSuB 11000: PRINT "“(return) para todos" 
OSUB: 11000. 
8650 INPUT Ns 


AT - -_—_— AP AK£S — — NE 
ezo X=1:Y=10:G0SUB 11000: PRINT" INTRODUCIR EL TIPO" 
/¿GOSUB 11000: PRINT"1) INGRESOS": Y=Y+2 li 1 A e RA 
8680 GOSUE 11000: PRINT"2) GASTOS": Y=Y+2 
000: PRINT"3) TODOS LOS MOVIMIENTOS" a a 7 rt ll Act lo BE 1 a PA 
8690 X= 16: Y=Y+3: GOSUB 11000:PRINT"ELIJA":X=22 
EY$: IF W$<>"" THEN 8707 a 
8700 GOSUB 11000:PRINT " GOSUB 11000: PRINT ADE 
ETA GOTO NERO ci E Pr > 2 A AA ES 
8707 W=VAL (WS) 3 1F LI<1 OR W>3 THEN 8695 
08710 1F N$=CHRS (13) THEN GOTO 8735 ' > e 
8715 IF SC=2 THEN 8730 
8720 LPRINT TAB(3)¿NS:CLS:GOTO 8735 + a TA PRENDA ADOS 
8730 CLS:X=2:Y=1: GOSUB ¿SOO0Q1PRINT NG: Z2=0: Y=Y+1 
TIRITAS AO A, > de sa o ts de MEA A 
8737 1F W=3 THEN KL=1:W=1 
8740 FOR J=1 TO PA 
8745 ES$(7)=MIDS(AA$(3),34,20) :B5(8)=RIGHTS(AAS(J),1): ES (3) =MIDS(AAS (J),22,2) 
8750 B6(5)=MIDS(AA$(J),24,2):B$(6)=MIDS(AA$(J),26, 8):B$(1)=LEFTS(AAS(I), 20) Pl Mori = 2 ADA de 
8732 NO$=LEFTS (B$(7), N 
87353 IF VAL (ES (8))=4" THEN 8755 ELSE 8815 a * 
8755 1F N$=CHR$(13) THEN 8760 
8757 1F Ns$<>NOS$ THEN 8815 
B760 2=2Z+VAL (B$(6)) 
8761 IF W=1 THEN 8770 
8762 21=VAL (B$(6)):G$=STR$(271) :B1=LEN(G5) : BG (6) =AS$+RIGHTS(BS(6),B1-1) 
8765 B2=LEN(B$ (6)) :B$ (6) =STRING$ (9-B2, BL$)+B$(6) ¿GOTO 8777 
8770 B+(6) =BL$+B5 (6) 
8777 1F SC=2 THEN 8790 
8780 LPRINT:LPRINT TAB(2);B$(3)3"/";B$(5)¡SPC(2);B$(6)¿SPC(1);B8 (1) 
8785 GOTO 8815 
8790 X=2:Y=Y+2;GOSUB 11000: PRINTBS (3); "/"3B$(5);SPC(2)3E$(6) ¿SPOt1 » BR) 
8795 1F Y<>20 THEN 8815 
8800 X=3:Y=Y+2:G0SUB 11000:PRINT"Pulsar una tecla para continuar" 
8805 AS=INKEYS: 1F Ab="" THEN 8805 
8810 CLS: Y=2:G0SUB 11000 
8815 NEXT J 
8820 IF KL=1 THEN W=2:KL=0:G0TO 8740 
8825 2$=STR$ (2): Z2L=LEN(26) :LL=8-(ZL-1) 
8830 IF LL=0 THEN 8840 
8835 2$=STRINGS (LL, BL$)+Z48 
8840 IFSC=2 THEN 8850 
8845 LPRINT:LPRINT TAB(2);LEFTS(F1$,76):LPRINT TAB(2)3 "TOTAL "3Z$:GOTO 8865 
8850 X=2:Y=Y+2:GOSUB 11000:PRINT LEFTS(F1%,76):Y=Y+1:GOSUB 11000: PRINT “TOTAL eS 


8855 X=2: Y=Y+3:G0S5UB 11000:PRINT "Pulsar una tecla para continuar" 
8860 A$=INKEYS$: IF A$="" THEN 8860 


9005 REM CALCULOS 

POLO ¡REM neon 

9020 BS (5) =STR$ (VAL (BS (3) ) -VAL (BS (4) 2) 

9030 IF VAL(B$(5)) <=0 AND LEN(B$(5)) =8 THEN 9060 

9033 Z1=ABS (VAL (E$(5))) :B9(5)=AS$+STR$(Z1) 

9040 22=VAL (B$(5)) :X6=8STR$ (22) :B$(5) =RIGHTS(B$(5),LEN (X$)-1) 

9050 B$(5)=SPACES (8-LEN(BG(5)))+B5 (5) 

9060 X=19:Y=17:GOSUB 11000: PRINTB$(5) : RETURN 

9150 CLS: X=16:Y=10:GOSUB 11000: PRINT "ERROR!":FOR 1l=1 TO 1500: NEXT I: CLS:RETU 


9500 CLS:X=16:Y=10:GOSUB 11000: PRINT "ERROR!":X=3: Y=Y+2:G0SUB 11000:PRINT "Se h 
an hecho 100 movimientos":FOR I=1 TO 20003 NEXT 1:CLS:GOTO 10 

10000 REM ----- 

10010 REM DATOS 

10020 REM ----- 

10030 DATA "BALANCE FAMILIAR" 

10040 DATA 4 

10050 DATA "Generacion sistema", "Movimientos" 

10060 DATA "Introduccion plan de cuentas","Vuelve al MAIN" 

10070 DATA 30,31,28,29,20,16,15,13,25,19,17,0,0,0,0 

10090 DATA 0,7,5,0,0 

10100 DATA "CODIGO”, "DESCRIPCION", "TOT. PREV.","TOT. REAL", "TOT. DESV." 
10110 DATA 1,1,0,19,8,26,8 
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10120 DATA 3,20,0,7,11,19,11 
10125 DATA 1,8,0,7, 13; 19,13 
10130 DATA 4,8,0,7,15,19,15 
10135 DATA 2,8,0,7, 17,19% 17 
10170 DATA "NOMBRE", "CODIGO", "FECHA", , , "IMPORTE", "DESCRIPCION" 
10180 DATA 3,20,0,6,10,19, 10' 
10190 DATA 1,1,0,6, 12, 19, 12 
10200 DATA 1,2,0, 6/14,19,14 
10210 DATA 4,1,0,6,14,21,14 
10220 DATA 1,2,0,6,14,22,14 
10230 DATA 1,8,0,6,16,19,16 
10240 DATA 3,20, ó 6, 18,19, 18 
11000 REM. == mamma rs 
11010 REM POSICIONA CURSOR 
11020 REM === 
11030 LOCATE X,Y 

11040 RETURN 

12000 REM ===" 
12004 REM GENERACION SISTEMA 
12008 REM == === 
12012 CLS 

12068 CLS:X=10:Y=10:G0SUB 11000:PRINT "PUESTA A CERO EN CURSO": Y=Y+3:GOSUB 11000 


¿PRINT "CONTINUO (S/N)" 


12072 
12076 
12080 
12084 
12088 


RS=INKEYS: IF R$="" 


IF R$="N" 
IF Rs="s" 
1F R$<>"S" 


OR R$="n" 
OR R$="s" 


THEN 12072 
THEN RETURN 
THEN' 12088 


OR R$<>"s" OR RE <>"N" 


OR R$<>"n" THEN 12072 


CLS: X=3:Y=18: G0SUB 


11000: PRINTWIS 


12092 
12096 
12100 
12104 
12108 


Y=Y+1:GOSUB 11000: PRINT W2% 

FOR 1=1 TO 1000:NEXT 1:Y=22:GOSUB 11000: 
R$=INKEYS: IF R$="" THEN 12100 

IF R$="S" OR R$ " THEN 12116 y 
IF R$="N" OR R$="n" THEN RETURN 

12112 1F R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 12100 

12116 CLS:X=15:Y=10:GOSUB 11000: PRINTWA4$: X=4: Y=Y+2:GOSUB 11000: PRINT "Se han pr 

evisto un maximo de 100 movimientos” 

12120 BBs="" 

12124 OPEN "CAS: INC" 
12128 FOR T=1 TO 9 
12132 BB$(T)=STRING%(L2,AS$) 
12136 PRINT +4$1,BB%(T) 
12140 NEXT T 

12144 CLOSE $1 

12148 CCs="" > 
12152 OPEN "CAS: SPE" 
12156 FOR S=1 TO 9 
12160 CC+$(S)=STRINGS$(L2,AS$) 
12164 PRINT $1,CC$(S5) 
12168 NEXT S 

12172 CLOSE +1 

12176 OPEN "CAS: MOV" 
12180 AA$(0)= 
12184 AAS(0)=STRINGS (L1,AS+) 

12188 PRINT 41,AA$(0) 

12192 CLOSE +41 

121796 CLS:X=15:Y=10:GOSUB 11000:PRINT "TERMINADO!":FOR I=1 TO 1000:NEXT 1 
12200 RETURN 

13000 REM --=-=-- 

13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
165000 
15005 
16007 
16010 


PRINTWS$; 


FOR OUTPUT ASt1 


FOR OUTPUT ASI 


FOR OUTFUT ASH1 


REM 
LOCATE 0,22 

PRINT "AYUDA (barra espaciadora para continuar) 
GOSUB 13220 
PRINT "FLECHAS: 
GOSUB 13220 
PRINT "RETURN: 
GOSUB 13220 
PRINT "F1í: vuelve al menu principal 

GOSUB 13220 

PRINT "F2: anula toda la introduccion 

GOSUB 13220 

PRINT "F3: cancela un caracter 

GOSUB 13220 

PRINT "F4: permite la insercion de espacios"; 
GOSUB 13220 

PRINT "FS: introduccion en cassette 

GOSUB 13220 

PRINT " 

RETURN 

AS=INKEYS$: 1F A$= "" THEN 13220 
IF A$<> CHR$(32) THEN 13220 
LOCATE 0,22 

RETURN 

REM 


dd 
mueven en las 4 direcciones 


alinea' y convalida la introd.”; 


CTRL Y(AYUDA) “ 


REM 
GOSUB £000 

IF R$="n" OR R$="N" THEN RETURN 

CcLs 

M=1 

GOSUB 2000 

X=2:Y=6:G0SUB 11000:PRINT "INTRODUCIR OPCION ELEGIDA" 


1 Y=Y+4:X=12:GO5UB 110 


PRINT "(1) INGRESOS": Y=Y+2:G0OSUB 11000 

PRINT "(2) GASTOS": Y=Y+2:GOSUB 11000 

PRINT "(3) VUELVE AL MENU": X=16: Y=Y+5:GOSUB 11000: PRINT "ELIJA" 
SEL$=INKEY$: 1F SEL$<>"" THEN 16100 
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16090 X=22:GOSUB 11000: PRINT " pp":GOSUE 11000: PRINT "  " 
16095 GOTO 16085 

16100 SEL=VAL (SEL$) 

16105 IF SEL<1 OR SEL>3 THEN 16085 

16110 IF 'SEL=3 THEN RETURN 

16115 GOSUB 7000 

16120 M=0 

16125 B$(4)="" 

16130 NUC=1:G0OSUB 2000 

16135 X=7:Y=6:GOSUB 11000:PRINT DH* (SEL) 

16140 GOSUB 3000 

16145 IF FS”6 THEN 16050 

16150 1F FS=7 THEN RETURN 

16155 1F FS=9 THEN 16115 

16160 RE=VAL(B$(1)):1F RE<1 THEN 16115 

16165 K=RE 

16170 1F SEL=2 THEN 16195 

16175 B$(2)=LEFTS (BB$(K),20) 

16180 B+$(3)=MID$(BB*$ (K),21,8) 

16185 B$(4)=MID+ (BB$ (K),29,8) 

16190 GOTO 16210 

15193 B$(2)=LEFTS$(CC$(K), 20) 

16200 B$(3)=MID$(CC$(K),21,8) 

15205 B$(4)=MID$(CC$(K),29,8) 

16210 NUC=S 

16215 TP(1)=4:TP(2)=5: TP (3)=5 

16220 'GOSUB 2000 

16225 NC=5:GOSUB 9000 

16230 X=7:Y=6:GOSUB 11000:PRINT DH$ (SEL) 

16235 TP(3)=1:TP(5)=2:G0SUB 3100: TP (1)=1 

16240 1F FS=6 OR FS=9 THEN 16115 

16245 1F FS=7 THEN RETURN 

16250 K=RE: IF SEL=2 THEN 16245 

16255 RES (K)=BS (2) +B$ (3)+B% (4) 

16260 GOTO 16270 

16265 CC$(K) =E9 (2)+B$(3)+B$(4) 

16270 CLS:X=3:Y=10:G05UB 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+2:G0SU 
B 11000:PRINT "(1) PARA UNA 'NUEVA INTRODUCCION" 

16275 R$=INKEYS: IF R$="" THEN 16275 

16280 IF R$="0" THEN 16295 

16285 IF R$="1" THEN GOTO 16050 

16290 IF R$<>"0" OR R$<>"1" THEN 16275 

16295 GOSUB £500 

156350 CLS:GOTO 16050 

20000 1REMISES A 

20010 REM carga del programa 

RONLOIRAMAA A 

20030 CLS:X=9:Y=8:GOSUB 11000:PRINT"REBOBINAR LA CINTA" 
20040 Y=Y+2:GOSUB 11000:PRINT "QUE CONTIENE LOS PROGRAMAS” 
20050 FOR I=1 TO SOO:NEXT 1 

20060 X=9:Y=20:GOSUB 11000:PRINT "CONTINUO (S/N)" 

20070 RS=INKEYS: 1F R$<>"" THEN 20100 

20080 X=25:G0SUB 11000: PRINT" p":GOSUB 11000: PRINT"  " 
20090 GOTO 20070 

20100 IF R$="N" OR R$="n" THEN RETURN 

20110 1F R$="S" OR R$="s" THEN 20130 

20120 IF R$<>"S" OR R$<>"s"DR R$<> "N" DR R$<>"n" THEN 20070 
20130 CLS:X=9:Y=10:GOSUB 11000: PRINT "PULSE LA TECLA PLAY" :X=5: Y=Y+8:GOSUB 110 
00: PRINT"Pulsar RETURN para continuar" 

20133 R$=INKEYS: IF R$="" THEN 20135 

20140 IF R$<> CHR$(13) THEN 20135 

20160 CLS: X=3:Y=10:GOSUB 11000:PRINT "Al final de la carga pulsar el comando RUN 
en el teclado" E 

20170 FOR I=1 TO 2000: NEXT I:CLS 

22000 CLOAD "PROG" E 


PROG / 2 


13 REM BALANCE FAMILIAR 

15 REM Version MSX 

10 REN oneroso mega 

20 MAXFILES=2 

21 CLEAR 7000 

22 DEFINT A-S,U-W 

23 DEFDBL T,Z 

27 W1$="PREDISPONGA EL GRABADOR PULSANDO":W2$="PLAY Y RECORD":W3$="REBDBINE LA C 
INTA Y PULSE" 

29 W4$="ESPERAR":W5S="ESTA PREPARADO ? (puise S para conti- nuar;pulse N para 

volver al menu)" 

33 DIM DH$(3),TL3$(4),SC$(12),T1(12),T5(12),N(22) 

SO DIM B$(20),D$(20),V0$(10),C0$(8),FI$(2),BB$(9),CC$(9),AA$ (100) 

52 DR$(1)="Ingresos":DH$(2)="Gastos ":DH$(3)="Impresion total" 

55 KEY OFF:KEY 1,CHR$(15): KEY 2,CHR$(16) :KEY 3,CHR$(17):KEY 4,CHR$(19):KEY S,CHR 
$(20)+ WIDTH 40 

60 REM CONSTANTES 

65 Ai=1:A2=31:BPS$="D4L30DFB":NS$="=":AS$=CHR$(45):PD$=",":BL$=" "¡ERS="E":MPS="M 
ENUY"3SL$="/" 

75 A$=STRINGS$ (33, AS%) 

80  SZ=21MI=1 . 

90 X0=5:1Y0=1: XC=3: YC=3: XS=1;LH=8:11=54:L2=36:ND=7 

100 US$=CHR$ (13) : ZE$=CHR$ (48) : GIUS$=CHR$ (32) 

115 HiS="E.G.S. Ediciones Forum,S.A.” 

120 REM CARGA VOCES 

130 RESTORE 
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140 READ PRUG$ 

150 READ NV 

160 FOR I=1 TO NV:READ VOS (1): NEXT 

170 MA=NV+1 

180 VO$(MA)="Fin de tarea” 

220 REM MAIN 

230 GOSUB 1300: REM MENU 

240 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLS: END 

260 ON OPZ GOSUB 5000, 15000, 14000, 20000 

290 GOTO 230 

1300 REM  --: A 

1310 REM MENU PRINCIPAL 

A 

1330 CLS 

1335 X=1:Y=0:GOSUB 11000:PRINT CHR$(1);CHR$(£H58)5:FOR V=1 TO 6:PRINT CHR$(1)3CH 
R$(£H57)3: NEXT V:PRINT CHR$(1)5CHR$ (£H59) 

1340 X=XC+7:Y=0:GOSUB 11000:PRINT H1$:X=1:Y=Y+1:GOSUB 11000:PRINT CHR$(1) 3 CHRG (2 
HS56)3" "3MPS¿" "3CHR$(1)5 CHAS (2H56) : Y=Y+1:X=1:GOSUB 11000: PRINT CHR$(1); CHAS (£:H5 
603" "¿CHAS (1) 3CHR$(RHS6) ¿1 PRINT SPACES (5)3:PRINT PROG$+DE$ 

1345 X=1:Y=Y+1:GOSUB 11000:PRINT CHR$(1);CHR$S(£HSA);:+ FOR V=1 TO 6:PRINT CHR$(1)5 
CHR$ (8H37)3 ¿NEXT V¿PRINT CHR$(1)3CHR$(£H51)3:FDR V=1 TO 29:PRINT CHR$(1);CHR$ (2H 
57)3: NEXT Y 

1350 FOR 1 = MI TO MA 

1360 Y=1£SZ7+YC:X=XC:G0SUB 11000 

1370 11=1 

1380 IF ll= (MA) THEN II=0 

1390 PRINT 11;"-";V0$(1) 

1400 NEXT 

1410 1I=MI 

1420 Y=IXxSZ7+YC: X=XS:GOSUB 11000 

1430 SP=YC-1 

1440 PRINT "->"; 

1450 OPZ$=INKEYS: IF OPZS$="" THEN 1450 
1455 OPZ=VAL (0P2$): 1F OPZ$=US$ THEN 1530 

1460 IF OFZ >NV THEN 1450 

1470 IF OP2$=ZE% THEN X=XS:GOSUE 11000:PRINT SPC( SP);: 1=MA:GOTO 1420 


1480 IF ASC(DFZ%)>48 AND ASC (0PZ$) <58 THEN X=XS:GOSUB 11000:PRINT SPC( SP);2 l= 
OFZ:GOTO 1420 


1490 IF 0PZ% <> GIUSTHEN 1450 

1500 X=XS:GOSUB 11000:PRINT SPC( SP); 
1510 I=1+1:1F I> (MA) THEN 1410 

1520 GOTO 1420 

1530 X=XC2 Y=1I*SZ+YC 

1540 1I=1:IF 1 > NV THEN I1=0 

1560 PRINT 11;"-";V0$(1) 


1580 OPZ =1 
1590 RETURN 

2000 REM <nomana mames 
2010 REM PRESENTA MASCARA 
2020 REM Ponsa 
2030 CLS 


2130 L=LEN(VOS(0PZ))-3 

2140 FM=(29=L)/2 

2150 X=1:Y=0:GOSUB 11000: PRINT CHR$(1);CHR$(2M58);: FOR V=1 TO 6:PRINT CHR$(1)3CH 
RS (2LHS7) 5 NEXT Vs PRINT CHR$ (1); CHR$(2H59) :X=XC+7:GOSUB 11000:PRINT H1$ 

2190 OPZ$=LEFTS(STRS(0PZ),2) 

2195 Y=Y+1:X=1:GOSUB 11000:PRINT CHR$(1)5CHR$(2H56) 3 "VOZ"5OPZ53" "¿CHR$(1)3CHR$( 
LHS6) 

2200 Y=Y+2:X=1:GOSUB 11000: PRINT CHR$(1)¿CHR$(8:H5A)3:FOR V=1 TO 6:PRINT CHR$(1)3 
CMR$ (2457): NEXT V:PRINT CHR$(1)¿CHR$(2HS1)3: FOR V=1 TO 30:PRINT CHR$(1)3CHR$(2H 
57)3:NEXT Y 

2215 Y=Y-1:X=1:GOSUB 11000: PRINT CHR$(1);CHRS$(2H56) 3" "¿CHR$(1)3CHRS (LHSÓ) : 
PRINT SPC(FM);:PRINT VOS(DPZ);:PRINT SPC (FM) 

2216 GOTO 2216: 1F M=1 THEN RETURN 

2218 RETURN 

5000 REM -====-=- 

5005 REM BALANCE 

5007 REM ===-=--- 

5010 GOSUB 6000 

5015 1F R$="n" DR R$="N" THEN RETURN 

5040 T1=0:T2=0: 13=0: T4=0 

5045 FOR K=1 TD 9 

5050 Ti=T1+VAL (MIDS (BB$(K),21,8)):T2=T2+VAL (MIDS (BBS(K),29,8)) 

5055 NEXT K 

5060 FOR K=1 TO 9 

5065 T3I=T3+VAL (MIDS(CC$(K),21,8)):T4=T4+VAL (MID$(CC$(K),29,8)): NEXT K 

5070 TL$(1)=STR$(T1):TL$(2)=STR$(T2)3 TLS (3) =STR$ (13): TL$ (4) =STR$(T4) 

5075 FOR J=1 TO 4 

5077 TO=LEN(TLS6(3)): TL$ (J) =RIGHTS (TLG(J),T9-1) 

5080 L=9-LEN(TL$(J)) 

5085 IF L<=0 THEN 5100 

5090 FOR Es1 TO L:TL$(I)=BL$+TLS(J): NEXT E 

5095 NEXT J 

5097 CLS:M=1:GOSUB 2000: X=9: Y=10:GOSUB 11000: PRINT "1) EN IMPRESORA": Y=Y+2: GOSU 
B 11000 

5099 PRINT "2) EN PANTALLA": Y=Y+2:GOSUB 11000:PRINT "3) VUELVE AL MENU" 

5110 X=12:Y=Y+3:G0SUB 11000:PRINT "ELIJA" 

5112 SCS=INKEYS: IF SC$<>"" THEN 5115 

5113 X=18:GOSUB 11000: PRINT " p":GOSUB 11000: PRINT " * 

5114 GOTO 5112 

S115 SC=VAL(SC$):1F SC<1 OR SC>3 THEN 5112 

5116 GOSUB 11000: PRINT SC 

5117 1F SC=3 THEN RETURN 

5118 IF SC=1 THEN CLS:GOTOS300 

5125 M=1:GOSUB 2000 

5126 X=7:Y=6:GOSUB 11000: PRINT DH$(1) 

5127 X=7:Y=Y+2:GOSUB 11000: PRINT"TOTAL PREVISTO 1: "3TL%(1):Y=Y+*2:GOSUB 11000: P 
RINT"TOTAL EFECTIVO :";TL$(2) 

5130 X=7:Y=Y+4:GOSUB 11000: PRINT DH$(2) 
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5135 X=7:Y=Y+2:G0SUB 11000: PRINT"TOTAL PREVISTO —:"TL$(3):2Y=Y+2:GOSUB 11000: PR 


INT"TOTAL EFECTIVO :"¿TL$(4) 


5150 X=4:Y=22:G0SUB 11000: PRINT LEFT$(0$,30): Y=Y+1:GOSUB 11000:PRINT"Pulsar una 


tecla para continuar"; 
5155 RS=INKEYS: IF R$="" THEN 5155 
5160 CLS:M=1:GOSUB 2000 
5165 X=2:Y=7:GOSUB 11000; PRINT "SITUACION DE BALANCE"; SPC(2)3 
5167 PRINT T2-T4 
5170 F2$=STRING$(22,CHR$(192)) 
5172 Y=Y+1:GOSUB 11000: PRINT F2$ 
5175 X=2:Y=Y+4:GOSUB 11000:PRINT "DESVIACIONES" 
5180 TA$(1)=STR$(T2-T1):TA$(2)=STR$ (T14-T3) 
5185 FOR J=1 TO 2 
5194 L=10-LEN(TAS (J)) 
5200 1F L<=0 THEN 5210 
5205 FOR E=1 TO L:TAS(J)=BLS+TAS (J): NEXT E 
5210 NEXT 
5230 X=4:Y=Y+3:GDSUB 11000: PRINT DH$(1);":"¿SPC(2)3TA$(1) 
5240 X=41V=Y+2:GOSUB 11000: PRINT DH$(2);SPC(1)3"2 "3SPO(2)3 TAS (2) 


5250 X=4:Y=22:605UB 11000: PRINT LEFT+$(0$,28) : Y=Y+1:G0SUB 11000:PRINT"Una tecla 


para volver al menu'"y 

5255 R$=INKEYS: IF Ró$="" THEN 5255 
5260 GOTO 5097 

5300 LPRINT TAB(6);DH$(1) 


5310 LPRINT:LPRINT TAB(4);5'"TOTAL PREVISTO: :"3TL$(1):LPRINT:LPRINT TAR(4)3 "TOTAL 


REAL: "3 TL56(2) 
5320 LPRINT ¿LPRINT TAB(6)3DH$(2) 


5325 LPRINT:LPRINT TAB(4)3"TOTAL PREVISTO :"3TL$(3):LPRINT:LPRINT TAB(4)3 "TOTAL 


REAL: "¡TL$ (4) 
5327 LPRINT:LPRINT:LPRINT 
5330 LPRINT TAB(2)3 "SITUACION DE BALANCE"; SPC(2)3 
5335 LPRINT T2-T4 
5340 F2$=STRINGS$ (22, CHR$(192)) 
5347 LPRINT TAB(2);F2$ 
5350 LPRINT:LPRINT TAB(4); "DESVIACIONES" 
5355 TAS(1)=STR$(T2-T1): TAS$(2)=STR$(T4-T3) 
5360 FOR J=1 TO 2 
5365 L=10-LEN(TAS (J)) 
5370 IF L<=0 THEN 5380 
5375 FOR E=1 TO L:TAS(J)=BL$+TA$(J): NEXT E 
5380 NEXT J 
5390 LPRINT:LPRINT TAB(6);DH$(1)3":"SPC(2)3TA$(1) 
5395 LPRINT:LPRINT TAB(6);DH$(2);SPC(1)3"2 "¿SPC (2); TA$ (2) 
5400 GOTO 5097 


ON REN AAA q 
5005 REM CARGA DE LOS DATOS , 
6010 REM ---=== ARS a 


6020 CLS: X=3:Y=18:G0SUB 11000:PRINT W3s 

56025 Y=Y+1:GOSUB 11000:PRINT LEFTS(W25, 4) 

5030 FOR I=1 TO 1000:NEXT 1:Y=22:GOSUE 11000: PRINTUSS; 
56035 RE=INKEYS: IF R$="" THEN 6035 

6040 IF R$="S" OR R$="s" THEN 6055 

6045 IF R$="N" OR R$="n" THEN RETURN 

5050 IF R$<>"5" DR R$<>"s" OR R$<>"N" OR R$<>"n" THEN 6035 
6055 CLS:X=15:Y=10:GOSUB 11000: PRINTW4S$ 

61353 OPEN "CAS: INC" FOR INPUT ASH1 

6137 FOR T=1 TO 9 

6140 INPUT +41,BB*$(T) 

6142 NEXT T 

6145.CLOSE 41 

6147 OPEN "CAS:SPE" FOR INPUT ASH1 

6150 FOR S=1 TO 9 

6152 INPUT $4$1,C0$(S) 

6155 NEXT S 

6157 CLOSE $1 

6160 OPEN "CAS:MO0V" FOR INPUT ASt1 

6163 INPUT $1,AA$(0) 

61635 PA=VAL(AAS(0)) 

6167 IF PA=0 THEN 6180 

6170 FOR L=1 TO PA 

6172 INPUT $1,AAS(L) 

6175 NEXT L 

6180 CLOSE $1 

6200 RETURN 

9000 REM 

9150 CLS:X=16: Y=10:GOSUB 11000: PRINT "ERROR!":FOR I=1 TO 1500: NEXT l: 
RN 


9500 CLS:X=16:Y=10:G0SUB 11000: PRINT "ERROR!":X=3: Y=Y+2:GOSUB 11000:PRINT 


an hecho 100 movimientos":CLS:GOTO 10 

10000 REM ----- 

10010 REM DATOS 

10020 REM ----- 

10030 DATA "BALANCE FAMILIAR" 

10040 DATA 4 

10050 DATA "Balance" 

10060 DATA "Estadistica", "Impresion plan de cuentas",'"Vuelta al MAIN" 
III 

11010 REM POSICIONA CURSOR 

MIOLQMREMTE===A2 ES 

11030 LOCATE X,Y 

11040 RETURN 

14000 REM ===". 

14005 REM IMPRESION PLAN DE CUENTAS 

14010 REM 
14012 GOSUB 5000 

14015 1F R$="n" OR R$="N" THEN RETURN 
14030 M=1:GOSUB 2000 


14035 X=2:Y=6:G0SUB 11000:PRINT "INTRODUCIR OPCION ELEGIDA": Y=Y+4: X=12:GOSUB 110 


00: 
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14040 FRINT (1) INGRESOS": Y=Y+2:GOSUB 11000 

14045 PRINT "(2) GASTOS": Y=Y+2:GOSUE 11000 

14050 PRINT "(3) IMPRESION TOTAL": Y=Y+2:GOSUB 11000 

14052 X=16: Y=Y+3:GOSUBE 11000: PRINT"ELIJA" 

14055 FR$=INKEYS: 1F PR$<>"" THEN 14070 

14060 X=22:GOSUB 11000: PRINT " A": eosue 11000: PRINT " " 

14065 GOTO 14055 

14070 PR=VALI(PR$): 1F PRO1 OR PR>3 THEN 14055 

14075 GOSUB 2000: X=9:Y=10:GOSUB 11000: PRINT “1) EN IMPRESORA": Y=Y+2:GOSUB 11000 
14080 PRINT "2) EN PANTALLA": Y=Y+2:GOSUB 11000:PRINT "3) VUELVE AL MENU" 
14082 X=12:Y=Y+5:GOSUB 11000:PRINT "ELIJA" 

14085 SC$=INKEYS: IF SC$<>"" THEN 14100 

14090 X=18:G0SUB 11000: PRINT " M':eosus 11000: PRINT "  ” 

14095 GOTO 14085 

14100. SE=VAL(SC$):1F 5C<1 OR SC>3 THEN 14085 

19105 IF SC=3 THEM GOTO 120 

14110 IF SC=1 THEN CLS:GOTD 14480 

14140 IF PR=1 THEN KV=0:GOTO 14290 

14142 1F PR=3 THEN KV=1:GOTO 14155 

14145 IF PR=2 THEN KkV=0 

14135 CLS:X=2: Y=0: GOSUB 11000: PRINT DH$(FR) 

14157 1Ff PR=3 THEN X=25:Y=0:G0SUB 11000:PRINT DHS(1) 

14158 FOR.K=1 TO. 9 

14160 C$(1)=LEFTS(CO$(K),20): 056 (2) =MIDS(CCS (K), 29,8) 

14165 X=2:Y=Y+2:G0SUB 11000 

14167 IF LEFT$(C$(1),1)=CHR$(45) OR LEFTS(C$(1),1)=CHR$(32) THEN C$(1)="" 
14168 1F RIGHT$(C04$(2),1)=CHR$(61) OR RIGHTS(C06 (2), 1)=CHR$(32) OR RIGHT$(C0$(2),1) 
=CHR$(45) THEN C$(2)="" 

14170 PRINT 0%(1):X=24:GOSUE 11000: PRINT C$(2) 

14172 NEXT K 

14190 X=2:Y=22:G0SUB 11000: PRINT LEFT+(05,30):Y=Y+1:GOSUB 11000:PRINT"Pulsar un 
a tecla para continuar"; 

14185 Re=INKEYS*:; 1F R$="" THEN 14185 

14190 IF KV=0 THEN GOTO 14030 

14290 REM 

14292 CLS: X=2:Y=0:GOSUE 11000: PRINT DHS(PR)> 

14293 IF PR=3 THEN X=27:Y=0:GOSUB 11000:PRINT DH$(2) 

14300 FOR K=1 TO 9 

14310 O65(1)=LEFTS(BBS (K),20):0$(2)=MIDS (BES (K),29,8) 

14315 X=2:Y=Y+2:G0SUB 11000 

14320 IF LEFT$(C$(1),1)=CHR$(45) OR LEFTS(C$(1),1)=CHR$(32) THEN C$(1)="" 
14325 IF RIGHT$(C$(2),1)=CHR$(61) OR RIGHTS(C0$(2),1)=CHR9(32) OR RIGHT+$1(C$ (2), 1) 
=CHR$(45) THEN C$(2)="" 

14330 PRINT C$(1):X=24:G0SUB 11000:PRINT C$(2) 

14335 NEXT K 

14340 x=2:Y=22:G0SUB 11000: PRINT LEFT$(0$,30) : Y=Y+1:G0SUB 11000:PRINT"Fulsar un 
a tecla para continuar"; 

14345 Re$=INKEYS: IF R$="" THEN 14345 

14350 GOTO 14030 

14480 IF PR=1 THEN KV=0:GOTO 14560 

14485 1F PR=3 THEN KV=1:G0TO 14500 

14490 IF FR=2 THEN KV=0 

14500 LPRINT TAB (2); DHS (PR) 

19510 1F PR=3 THEN LPRINT TAB(25); DH$(1) s 

14512 LPRINT 

14515 FOR K=1 TO Y 

14520 0$(1)=LEFTS(CO$(K),20):0$(2)=MID$(COS(K),29,8) 

14525 X=2:Y=Y+2:GOSUB 11000 

14530 1F LEFT$(0$(1),1)=CHR$(45) OR LEFT$(0$(1),1)=CHRS(32) THEN C$(1)="" 


14535 IF RIGHT$(C$(2),1)=CHR$(61) OR RIGHT$(C$(2),1)=CHR$(32) OR RIGHT$(C08(2),1) 
=CHR3 (45) THEN C$(2)="" 


14540 LPRINT TAB(2);C8(1);TAB(29);C046(2) 

14545. NEXT K 

14550 1F KV=0 THEN GOTO 14030 

14560 LFRINT TAB(2)3DHS$ (PR) 

14565 1F PR=3 THEN LPRINT TAB(27)3 DH$(2) 

14567 LFRINT 

14570 FOR K=1 TO 9 

14575 06 (1)=LEFTS (BES (K),20):06(2)=MID% (BB$(K),29,8) 

14380 X=2: Y=Y+2:GOSUB 11000 

14585 IF"LEFT*(C$(1),1)=CHR$(45) OR LEFTS(C$(1),1)=CHR$(32)THEN 0$(1)="" 
14590 1F RIGHTS(C$(2),1)=CHR$(61) OR RIGHTS(C0%(2),1)=CHR$(32) OR RIGHTS(C8(2),1) 
=0HR$(95) THEN 0$(2)="" 

14595 LPRINT TAB(2);C$(1);TA56(24)3046 (2) 

14600 MEXT K 

14620 GOTO 14030 

AGORA 

15005 REM ESTADISTICA 

VIOLAR 

15012 GOSUB 6000 

15015 IF R$="n" OR Ró="N" THEN RETURN 

15040 M=1:G0SUE 2000 

15045 X=2:Y=6:G0SUB 11000:FPRINT "INTRODUCIR OFCION ELEGIDA": Y=Y+4: X=12:GOSUB 110 
DO: 

15055 PRINT "(41) SELECCION": Y=Y+2;GDSUB 11000 

15060 PRINT "(2) GRAFICO EVOLUCION": Y=Y+2:GOSUB 11000 

15065 FRINT "(3) VUELVE AL MENU": Y=Y+2:G0SUB 11000 

15070 X=16:Y=Y+3:GOSUB 11000:PRINT "ELIJA" 

15075 SEL$=INKEYS: IF SEL$<>"" THEN 15090 

15080 X=22:GOSUB 11000: PRINT “ A": eosue 11000: PRINT " *" 

15085 GOTO 15075 

15090 SEL=VAL (SEL$): IF SEL<1 OR SEL>3 THEN 15075 

15092 1F SEL=3 THEN RETURN 

15095 IF SEL=2 THEN 15500 

15100 CLS: GOSUE 2000: X=2: Y=6:GOSUÉ 11000: FPRINT "INTRODUCIR EL NOMBRE" 
15102 Y=Y+2:GOSUB 11000:PRINT "(return) para todos”;:Y=6:X=20:GOSUB 11000: INPUT 
NOS : 


15105 N=LEN(NO+) 
15110 CLS:¿COSUÉ 2000: X=0:Y=6:GOSUB 11000: PRINT"INTRODUCIR EL TIPO DE SELECCION 
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DESEADO" 

15112 X=13:Y=Y+3:GOSUB 11000:PRINT "1) INGRESOS": Y=Y+2:GOSUB 11000 
15115 PRINT"2) GASTOS": Y=Y+2:G0SUB 11000 

15120 PRINT “3) TODOS" 

15125 Y=Y+3:X=16:G0SUB 11000:PRINT "ELIJA"; 

15127 S1$=INKEYS: IF S1$<> "" THEN 15140 

15130 X=22:GOSUB 11000: PRINT" [p":GOSUB 11000: PRINT" ” 

15135 GOTO 15127 

15140 S1=VAL(S1$):1F S1<1 DR S1>3 THEN 15127 

15147 IF LEFTS(NO$,1)="" THEN CLS:Y=1:GOSUB 11000: GOTO 15153 
15148 CLS:X=3:Y=1:G0SUB 11000: PRINTNOS 

15150 X$=CHRS (1) +CHR$ (87) 

15152 Fs="":FOR 1=1 TO N:F$=F$+X$: NEXT I:Y=Y+1:GOSUB 11000:PRINT F% 
15153 X=1:Y=Y+2:GOSUB 11000 

15154 KL=0:Z=0 

15155 IF S1=3 OR NO$=CHR$(13) THEN KL=1:S1=1 

15160 FOR 1=1 TO PA 

15165 BS(1)=LEFTS(AAS(1),20):E5(8) =RIGHTS(AAS(1),1):B6(3)=MIDS(AAS(1),22,2) 
15170 B%(6)=MIDE(AAS (1) ,26,8) :BS(S)=MIDE(AAS (1) ,24,2):B$(7)=MIDE(AAS(I),34,20) 
15175 TP=VAL (ES (8)) 

15180 NS=LEFTS(B8(1),N) 

15195 IF NOS=CHR$(13) THEN 15200 

15190 IF NS<>NOS THEN 15240 

15195 IF Si<>TP THEN 15240 

15200 IF S1=2 THEN B$(6)=B$(6)+AS$:GOTO 15204 

15203 B$(6)=B$(6)+BL5 

15204 X=1:Y=Y+1:GOSUB 11000 

15205 PRINT B$(3)5"/"¡B9(5)3SPC(2);BS(6);SPC(2)3B$(7) 

15210 1F TP=1 THEN Z=2+VAL (B$(6)):GOTO 15220 

15215 Z=Z-VAL(B$(6)) 

15220 1F Y<18 THEN 15240 


135225 Y=Y+2:GOSUBE 11000:PRINT "Pulsar una tecla para continuar": Y=2 
15230 Re=INKEYS: 1F R$="" THEN 15230 


15275 CLS: 
15240 NEXT 1 
15245 IF KL<50 THEN Si=2:KL=0:GOTO 15160 
+. 15247 0O$=STRINGS$(39,AS4) 
15250 X=0: Y=Y+2:GOSUE 11000: PRINTOS: Y=Y+1:GOSUE 11000:PRINT “TOTAL” 
13252 24=STR$(Z) 
15255 Es="":Z1=LEN(2%) 
15257 22=Z1-1:FOR I=1 TO 9-22:E$=ES+BL$:NEXT 1 
15259 Z$=E%+7%:X"6:GOSUB 11000:PRINT 23 
13260 X=2:Y=22:GOSUB 11000: 
15265 PRINT "Pulsar una tecla para volver al menu" 
15270 R$=INKEYS: IF R$="" THEN 15270 
15280 CLS:N=0:N0$="":GOTO 15040 
15500 REM ------ des. 
15505 REM GRAFICOS 
ISSLOAREN| == >=+==== 
15515 SC$(1)="En":SC4(2)="Fe":SC$(73)="Ma":SC4$(4)="Ab":SC$(5)="Ma":SC$(6)="Ju" 
15520 S5C$(7)="Ju":S5C$(9)="Ag":5C4(9)="Se":SCO$(10)="0c"250$(11)="No0":SCO$(12)="Di" 
15522 G$="V":;15$="S5":06="RWW":LY=18:LX=36:;X0=2:Y0=1:L1=1:N1=12:N2=2 
15525 FOR 1=1 TO PA 
139530 E$(5)=MIDS(AA$(1),26,2):Bé (6) =MIDS(AAS(1),26,9):B6(8)=RIGHTS(AA$(1),1) 
15535 2=VAL(B4(6)): T=VAL (B$(5)) , 
15540 IF BS(8) <> "1" THEN 13550 
155945 TI(T)=TI(T)+Z2:GOTO 15555 
155590 TS(T)=TS(T)+Z 
155535 NEXT 1 
15560 MA=0 
15565 FOR I=1 TO 12 
15570 TI(1)=T1 (1)/10000: TS(1)=TS(1)/10000 
15575 IF TI(1)>=MA TREN MA=TI(T) 
13580 1F TS(I)>=MA THEM MA=TS(1) 
15585 NEXT 1 
15590 2S=(LY+1)/MA 
15650 CLS:COLOR 14,1,1 
15660 X=3:Y=0:GOSUB 11000 
15665 FOR J=1 TO 10 
15670 GOSUB 11000: 
15672 PRINT 14: Y=Y+1:GOSUB 11000: PRINTGS6;:Y=Y+1:NEXT J 
15673 X=3:Y=0:GOSUB 11000: PRINT CHRS(1)¡CHR$(2H59) 
15674 X=4:Y=20:G0OSUB 11000: PRINTGS 
15677 X=X-3:G0SUB 11000 
156980 FOR J=1 TO LX/Z 
15683 X=X+3:GOSUB 11000 
156790 PFRINT D$:NEXT J 
156935 X=3:GOSUB 11000: PRINT CHR$(1)3 CHR$ (£H5A) 
135700 X=X0+1:23Y=Y+1 
15705 FOR I=1 TO Ni:X=X+L1:GOSUB 11000: PRINT SC$(1);:X=X+2:NEXT 1 
15710 X=0:Y=Y0-1:G0SUB 11000: PRINT "100" 
19711 Y=Y+2:GOSUB 11000: PRINT " 90" 
15712 Y=Y*+2:GOSUB 11000: PRINT " 80" 
15713 Y=Y+*2:GOSUB 11000: PRINT *" 70" 
15719 Y=Y+2:GOSUB 11000: PRINT " 60" 
157139 Y=Y+2:GOSUE 11000: FPRINT * 50" 
15716 Y=Y+2:G0SUB 11000: FRINT " 40" 
15717 Y=Y+2:G0SUB 11000: PRINT " 30" 
15718 Y=Y+2:G0SUB 11000: PRINT " 20" 
15719 Y=Y+2:G0SUB 11000: PRINT " 10" 
15720 Y=Y+2:G05UB 11000: FRINT " 0” 
15725 X=0:Y=273:GOSUB 11000: FRINT CHR$(205); "Ingresos A Gastos (return) co 
ntinuar"z 
15770 X=X0+1: Y=Y-4 e 
15733 FOR I=1 TO Ni 
15740 X=X+L1 
15745 Y1=19-INT(TI(1)X28) 
15750 IF Y1<0 OR Y1=19 THEN 15775 
157355 FOR Y=19 TO Yi STEP-1 
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- 20150-IF R$ <> CHR 
201£0 CLS:X=7: Y=10:GOSUB 11000: PRINT"Al final de la carga pulsar el comando RUN 
en el teclado” 
o CLOAD "PROG" 


15765 PRINT CHR$ (203 

NA ico Ens 

2775 X=X+L1 

19 INTITSCI) AZ) 

15783 1F V2:0 OR Y2=19 THEN 15810 
FOR Y=19 TO Y2 STEP-=1 XK. áA— q 

15795 GOSUÉ 11000 

A A A 
15805 NEXT Y 
15815 NEXT 1 a 


AN 
15835 1F Es <>CHR$ (13) THEN 15820 


ERERFZOLOR 158 10M e _ AS TA an, 
20000 al 


ZO ZO A o NT 
3: X=9: Y=8: GOSUR 11000: FRINT"RE . 
20040 Y=Y+2:GOSUB 11000:FRINT "QUE CONTIENE LOS PROGRAMAS" 
20050 FOR 1=1 TO SO0:NEXT 
20060 X=9:Y=20:GOSUB 11000:PRINT 
20070 R$=INKEYS: 1F R$<5"" THEN 20100 
20080 X=25:GOSUB 11000: FRINT" nm: :GOSUB 11000: PRINT"  " 
ARIZA OT LIO e ria e Rd ID NAAA TA 
20100 IF Re="N" OR K$="n" THEN RETURN 
20110 IF R$="S" OR R$="s" THEN 20130 
20120 IF R$<>"S" OR R$<>"s"DR R$<>"N" OR RKSO> "n" THEN 20070 


20130 CLS:X=9:Y=10:GOSUB 11000: PRINT "PULSAR LA TECLA PLAY" 1Xe5eV=Y+B:GOSUB 11 
000: PRINT"pulsar RETURN para continuar" 
A EIA GATA A 


“CONTINUO (S/N)" 


20140 RS=INKEYS: IF R$="" THEN 20140 


RELACION DE VARIABLES - PHILIPS VG 8010 


Variables dimensionadas 
DHS(s) 
TLS(«) 
SCS(+) 
Tl(«) 
TS(») 
TF(+) 


= cadenas del menú secundario para 
impresión (ingresos; gastos; total) 

= matriz de los totales en el balance 
del plan de cuentas 

= matriz de las cadenas que contie- 
nen las 2 letras de los 12 meses 

= matriz para el total de movimientos 
de ingresos en los 12 meses 

= matriz para el total de movimientos 
de gastos en los 12 meses 

= matriz de las teclas de comando de 
la data entry 

= matriz del campo de introducción 

= matriz de las longitudes del campo 
de introducción 

= número de decimales en el campo 
de introducción 

= coordenada horizontal en el campo 
de introducción 

= coordenada vertical en el campo 
de introducción 

= coordenada horizontal descripción 

= coordenada vertical descripción 

= matriz de los buffers en la data entry 
(1 para cada campo) 

= contiene las descripciones de las 
máscaras de vídeo 

= contiene las voces del menú prin- 
cipal 

= matriz de las cadenas extraídas de 
los registros del plan de cuentas 

= matriz para Filler (completa-registro) 


TP(+) 
LC(s) 


ND(+) 
CX(+) 
CY («) 


DX(») 
DY (+) 
BS(s) 


DS(+) 
VOS(+) 
CS(+) 
FIS(+) 


BBS$(+) = matriz de los registros del plan 
de cuentas (9), INGRESOS 

= matriz de los registros del plan 
de cuentas (9), GASTOS 

= matriz para la lectura-escritura 
de los datos en cinta (en este 
listado hay 100 como ejem- 
plo) 

Constantes y otras 


A1, A2 


CC$(+) 
AAS(+) 


= límites aceptables códigos 
ASCII del carácter introducido 

BPS, NS$, ASS, 

PD$, BLS, 

ER$, SZ = ver lista variables MSX Cuen- 
tas corrientes 

X0, YO, XC, 

YC, XS = ver lista variables MSX Cuen- 
tas corrientes 

= ver lista variables MSX Cuen- 
tas corrientes 

=sumatorios del previsto y del 
real en el balance del plan de 
cuentas 

= flag indicador para la impre- 
sión del plan de cuentas 

= flag indicador para vídeo o im- 
presora 

= flag indicador selección del 
menú secundario estadística 

= nombre pedido para la impre- 
sión estadística 

= indicador registro 
(0 <PA < 100) 


US$, ZES, GIU$ 


T1, T2, T3, T4 


PR 
sc 
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La versión para el sistema MSH se ha segmentado, El 
programa se ha subdividido en dos secciones (PROG 1 y 
PROG 2) reclamadas automáticamente por el módulo 
cargador, que contiene el menú general. La primera 
sección desarrolla las fases de generación e introducción 
del plan de cuentas y de introducción e impresión de los 
movimientos. La segunda sección, cuyo menú principal 
se ve en la foto, realiza las funciones indicadas en la 
pantalla. 


La máscara de introducción de los movimientos la 
presenta PROG 1 y es análoga a las ya descritas para el 
Commodore y el Apple. En la fase de introducción 
pueden utilizarse los siguientes comandos 

CTRL + Y = Ayuda 

RETURN = Alinea y convalida un dato 


Fl = Vuelve al menú principal 
F2 = Anula toda la introducción 
FS = Borra un carácter 

F4 = Inserta un carácter 

FS5 = Introducción en cassette 


| 


o Desplazan el cursor en las cuatro direcciones 


/ 


El histograma que representa la evolución del balance 
familiar lo presenta PROG 2. Contrariamente a lo que 
sucede en el Apple, el sistema MSX (así como el 
Commodore) permite el uso de caracteres gráficos en 
baja resolución simultáneamente con caracteres 
alfanuméricos 

Esto simplifica notablemente la labor del programador 
quien puede insertar figuras gráficas en una página en 
la que deben presentarse caracteres 


La versión presentada para MSX utiliza como memoria de 
masa la unidad de cinta (grabador de cassette) 

Por este motivo es necesario prever una gestión diferente 
de los ficheros (secuenciales) 

Para cada operación de lectura o escritura del fichero, lá 
unidad de cinta debe volverse a posicionar en el primer 
registro antes de activar la ejecución 

El programa presenta automáticamente instrucciones, 
como se ve en la foto de al lado 


diciones 


Jimi 


ESOO) 


“ingresos E Sastos 


ESSI)))))>>)O 


i 
<return> continuar 


Extensiones y modificaciones 


El software de gestión del balance familiar puede 
adaptarse fácilmente a otras aplicaciones. 

La principal modificación que debe realizarse es 
la ampliación del número de voces previstas en el 
plan de cuentas, Para una aplicación generaliza- 
da, por ejemplo la contabilidad de un negocio, 
por lo menos deben preverse dos niveles de se- 
lección del plan de cuentas, generalmente indi- 
cados como «Cuenta» y como «subcuenta», 
cuya agregación constituye la cuenta. 

Por ejemplo, una voz del plan de cuentas (gasto) 
puede ser «Consumos», que puede estar dividi- 
da en un cierto número de subcuentas: «Energía 
eléctrica», «Calefacción», «Teléfono», etc. 

Esta estructura de dos niveles, mucho más deta- 
llada que la del balance familiar, implica fuertes 
modificaciones de la estructura de los ficheros. 
Con una estructura de un solo nivel, cada cuenta 
puede identificarse por el número de registros en 
que está memorizada. Así, el código de la cuenta 
proporciona la clave de búsqueda. En cambio, 
con dos niveles, la relación entre el código de la 
voz (cuenta y subcuenta) y la posición de los da- 
tos en el disco no es tan inmediata. Para la estruc- 
turación de los ficheros hay dos soluciones. La 
primera prevé un número limitado de subcuentas 
para cada cuenta; así, cada registro corresponde 
a una cuenta, mientras que la subcuenta se iden- 
tifica con el campo del interior del registro. 

Este método es de fácil implantación, puesto que 
sólo requiere una ampliación de la longitud de los 
registros. Sin embargo, tiene notables inconve- 
nientes. El primero es que como hay que conser- 
var una estructura predefinida, para cada cuenta 
es casi siempre necesario prever el espacio para 
el número máximo de subcuentas previstas. Es 
decir, o se generan muchos registros práctica- 
mente vacíos, o bien se limita el número de sub- 
cuentas previstas para cada cuenta. Un segundo 
inconveniente, que puede ser determinante, es la 
longitud del registro. Para cada subcuenta hay 
que memorizar como mínimo la descripción y al- 
gunos importes, lo cual puede significar una lon- 
gitud excesiva del registro, hasta el punto de no 
poder ser gestionado. 

La segunda estructura supera esta dificultad, pe- 
ro presenta muchas complicaciones en el deta- 
llado. Consiste en prever dos ficheros, el primero 
sólo con las voces de las cuentas, cada una con 
dos punteros, y el segundo sólo con las voces de 
las subcuentas. Las referencias entre ambos se 
mantienen con una estructura de punteros. En el 
registro de las cuentas, el primer puntero indica 


en qué registro del segundo fichero empiezan las 
correspondientes subcuentas, mientras que el 
segundo puntero indica cuántas subcuentas per- 
tenecen a la cuenta examinada. 

De esta manera no se tiene espacio sin utilizar y 
cada cuenta está memorizada en Un registro que 
puede direccionarse con el código, por lo que la 
clave de acceso primaria es el número de cuenta, 
mientras que la de acceso secundaria es el valor 
del primer puntero. 

Esta estructura sólo es válida para las versiones 
en disco: con la cinta no puede gestionarse. 
Resumiendo, para adaptar el programa a em- 
pleos más generalizados es necesario modificar 
la estructura de los dos ficheros (INGRESOS Y 
GASTOS) que constituyen el plan de cuentas: . 
El método adoptado no es determinante desde el 
punto de vista de la funcionalidad, y sólo hay que 
realizar la gestión por lo menos a dos niveles, con 
punteros o con registros más largos. 

De esta manera se dispondrá de una estructura 
que, a través de un fichero de movimientos, per- 
mite gestionar dos ficheros progresivos (INGRE- 
SOS Y GASTOS) articulados, cada uno en dos 
niveles: Código de cuenta y Código de subcuen- 
ta. El fichero de los movimientos constituye el re- 
gistro del «primer apunte», mientras que los dos 
progresivos (INGRESOS Y GRADOS) son el Plan 
de cuentas. 

Naturalmente, las funciones que deben preverse 
en esta aplicación (contabilidad) son más nume- 
rosas y complejas que las incluidas. La primera 
diferencia está en la impresión. En el balance ta- 
miliar no son necesarios ni formalismos ni contro- 
les especiales. En cambio, en el caso de aplica- 
ciones contables, deben tenerse en cuenta las 
normas que dictan las leyes. 

Esta necesidad repercute tanto en la gestión de 
los datos como en su impresión. 

En cuanto a las necesidades de impresión, apar- 
te de las necesarias modificaciones de las subru- 
tinas, no se tienen implicaciones complejas ni de 
carácter sustancial. 

Es posible que la estructura de datos tal como 
está expuesta no sea suficiente. Seguramente ha- 
rán falta otros ficheros (por ejemplo los corres- 
pondientes a Clientes y Proveedores), además de 
funciones específicas como el ordenado, por fe- 
chas, de los movimientos efectuados. 

Además, la presencia de nuevos ficheros compli- 
ca la gestión de las correcciones. Efectivamente, 
si un valor introducido en un movimiento es erró- 
neo, la rectificación en todos los ficheros interesa- 
dos puede ser laboriosa, en particular si se adop- 
ta una estructura de punteros. 
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En el lenguaje común han entrado muchos térmi- 
nos propios de las aplicaciones de la informática, 
incluso a pesar de la falta de claridad que pue- 
dan presentar, 

Uno de estos términos es el «banco de datos». 
Con él se acostumbra a designar un conjunto de 
datos y de informaciones memorizados en un so- 
porte magnético sobre los cuales es posible efec- 
tuar operaciones de búsqueda, ordenado, varia- 
ción, actualización e introducción. El término 
«banco» se utiliza en lugar de «archivo» precisa- 
mente para ilustrar la importancia asociada a la 
posibilidad de trabajar de una manera u otra so- 
bre los datos memorizados. Un capital deposita- 
do en un banco aumenta su valor nominal no sólo 
por el interés que devenga, sino porque el banco 
se hace cargo de trabajar con dicho capital por 
cuenta nuestra, simplificando notablemente nues- 
tras intervenciones. 

De la misma manera, la utilidad de gestionar un 
banco de datos no reside en su recogida sola- 
mente, sino también en la facilidad con que pue- 
den reorganizarse los propios datos según las 
necesidades del momento. 


> 
Uso del programa 


El programa que se describe a continuación per- 
mite gestionar un archivo de datos personales y 
realizar en él operaciones de introducción, modiifi- 
cación o actualización, ordenado y búsqueda. 
La lógica de estas funciones requiere poder tra- 
bajar sobre datos memorizados en soporte mag- 
nético, bien sea cinta o disco, para el desarrollo 
de las operaciones más complejas, como por 
ejemplo el ordenado. 

En síntesis, las operaciones que pueden activar- 
se en el procedimiento son las siguientes: 


1 / Generación del archivo 
2 / Introducción de datos 
3 / Variación de datos 

4 / Ordenado (sort) 

5 / Búsqueda (find) 


Para realizar dichas funciones, el programa utiliza 
unas subrutinas fundamentales incluidas en los 
programas ya vistos, más otras subrutinas espe-. 
cíficas. A las subrutinas conocidas se han aporta- 
do las variantes que permiten realizar la gestión 
completa de un archivo de datos. 
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Los expertos en la ciencia de la información sos- 
tienen a este respecto que la posibilidad de tra- 
bajar de manera sencilla sobre los datos existen- 
tes en un archivo confiere una especie de valor 
añadido a la actividad de la información. 

Puede citarse un ejemplo clásico. Si el listín tele- 
fónico de una gran ciudad estuviese estructura- 
do, en lugar de estar en orden alfabético, por va- 
lores crecientes de los números de teléfono, la 
enorme cantidad de datos que contiene (varios 
millones de números) resultaría prácticamente 
inutilizable, a no ser para fines estadísticos. En 
cambio, imponiendo el orden alfabético, puede 
establecerse fácilmente un método que permite 
obtener el número telefónico de una persona co- 
nociendo su apellido. Pero las posibilidades del 
ordenador no terminan aquí. En el banco de da- 
tos que se describe a continuación pueden efec- 
tuarse operaciones de búsqueda sobre cualquier 
elemento de las informaciones previamente me- 
morizadas. Por ejemplo, es posible encontrar el 
nombre de la persona que tiene un determinado 
número teléfonico, o bien su dirección recordan- 
do solamente su nombre de pila. 


La aplicación a la que se hará referencia en el 
texto corresponde a la gestión de una agenda de 
direcciones. 

Las sencillas modificaciones aportadas se ilustra- 
rán en el párrafo «Extensiones y modificaciones». 
A continuación se examinarán las principales ca- 
racterísticas de las funciones que se han indica- 
do anteriormente. 


Generación del archivo. Se trata de crear en el 
soporte magnético el archivo destinado a alber- 
gar los datos. Durante la generación, el programa 
predispondrá el archivo (con ficheros secuencia- 
les en la cinta) para la grabación de 100 grupos 
de datos. Cada grupo que ocupa un registro está 
constituido por las siguientes informaciones: 


Apellido 

Nombre 

Calle 

Ciudad 

Provincia 

Código postal (D.P.) 
Prefijo telefónico 
Número telefónico 


A los 100 registros reservados a los datos, el pro- 
grama añadirá otro, el primero, utilizado como di- 
rectorio del archivo. Al final de la generación, en 
ol disco o en la cinta habrá el fichero ARCHIND 
(IND en la cinta), que estará constituido por 101 
registros, 100 de los cuales recibirán los datos. 
Como de costumbre, la función de generación es 
la que deberá activarse en primer lugar, 


Introducción de los datos. Una vez predispues- 
to en el soporte magnético el espacio que deberá 
ser gestionado por el programa, puede proceder- 
se a la introducción de los datos. 

Después de la elección de la voz deseada del 
menú, el programa presentará en pantalla la más- 
cara de introducción de los datos, que el usuario 
deberá completar con las informaciones que de- 
sea registrar. Completada la máscara, los datos 
podrán enviarse al disco o a la cinta pulsando la 
correspondiente tecla funcional. El programa los 
archivará en el primer registro disponible y que- 
dará en espera de nuevas instrucciones, 


Variación de los datos. La posibilidad de corre- 
gir o actualizar los datos del archivo está garanti- 
zada por esta función específica. 

Para utilizarla es necesario especificar cuál es el 
registro cuyo contenido se desea modificar, 
Obtenida esta información, el programa presen- 
tará en pantalla una copia de los datos grabados 
en el registro especificado, y el usuario podrá co- 
rregirlos como desee. La identificación del núme- 
ro del registro a corregir puede obtenerse de una 
copia sobre papel del archivo, que puede pedir- 
se utilizando el mismo programa. 


Ordenado. Activando esta función es posible im- 
poner a los datos un ordenado según el conteni- 
do de un determinado campo, que recibe el nom- 
bre de campo clave. 

El programa presenta en pantalla los nombres de 
los campos previstos en el registro, y pide que se 
especifique en base a cuál de ellos debe realizar- 
se el ordenado. 

Si el campo especificado es del tipo alfabético, el 
ordenador procederá a ordenar el archivo alfabé- 
ticamente, presentando en primer lugar los regis- 
tros que tienen como inicial la letra A, después los 
de la letra B, y así sucesivamente. En cambio, si 
el campo especificado es numérico, el ordenado 
será de tipo numérico creciente. Hay que tener 
presente que, con la solución adoptada en este 
programa, la realización de un ordenado no in- 
fluye de ninguna manera sobre el orden efectivo 
de memorización de los registros en el soporte 
magnético, que no se altera. 


Búsqueda. La función de búsqueda sirve para 
extraer del archivo uno o más datos que intere- 
san. La estructura del programa permite realizar 
operaciones de búsqueda tomando como pará- 
metro de comparación uno cualquiera de los da- 
tos memorizados en cada registro. 

Por ejemplo, pueden seleccionarse todas las per- 
sonas que viven en una misma ciudad, o bien to- 
das las personas que se llaman José, o todas las 
que viven en una determinada calle, De esta ma- 
nera se tiene la posibilidad de encontrar los datos 
de una persona entrandoren el archivo únicamen- 
te con el número telefónico, que a veces no se 
recuerda a quién pertenece. 


ESQUEMA DEL FLUJO DE LOS DATOS 


Fichero 
"ARCHIND" 
(archivo 
direcciones) 


d 


Escribio 1 datos. 
en el registro 
a vanar 


Lee el numero del ultimo registro excrito 
y escribe los nuevos dalos 
en el 1" régistro libre 


Al examinar el 

lichero se activan 

las funciones Ordenado 
y Busqueda 
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Activación del programa. Como en los otros, este 
programa también debe gestionar un archivo en 
soporte magnético. 

Por tanto, en el momento de la activación de la 
ejecución debe avisar al usuario que en la unidad de 
disco o en el grabador debe insertar el disco o la 
cassette que contiene o debe contener físicamente los 
datos. 

Realizada la operación que pide el programa, puede 
proseguirse con la ejecución pulsando una tecla 
cualquiera. 


Menú principal. El menú principal contiene la 
descripción abreviada de todas las voces con las que 
se articula el procedimiento. 

La primera función a activar en la primera utilización del 
programa es la generación del sistema, mediante la 
cual se reservará en el soporte magnético el espacio 
necesario para la gestión del archivo. La selección de la 
voz 1 se obtiene pulsando fl. 


Voz 1: Generación del sistema. Como de costumbre, 
el programa pide al usuario que confirme la orden 
impartida. Si en el disco o la cinta ya hay un archivo 
generado anteriormente, la nueva operación de 
generación produciría el borrado de los datos 
memorizados. 

En la fotografía, el usuario ya ha introducido la 
confirmación, y el programa presenta el número de 
registros que habrá disponibles para el archivo. En la 
forma presentada, el número máximo de grabaciones 
previstas en el programa es de 100. 


Terminada la fase de generación, el programa presenta 
este cuadro, en el cual avisa de que el archivo de 
direcciones ya está creado y formateado. Pulsando 
RETURN se vuelve al menú principal y pueden 
seleccionarse las diferentes funciones, lo cual sólo 
puede hacerse después de la generación. 


INSERTAR LA CASSETTE DE DATOS 


Y PULSAR UNA TECLA 


ESGUS" Ediciones Forum, S.ñf. 
EL BANCO DE DATOS DOMESTICO 


- Generacion del sistema 
Introduccion 
Variacion 
Ordenado 
Busqueda 


> Fin de tarea 


[CTRL+V > AYUDA 


[Voz 1: OS Ediciones Forum, S.ñ. 
Generacion del sistema 


generacion en curso 


continuo (si/no)7? si 


este prog53"* prove un Maximo 
Je 0 grabaciones 


CTRTIY_: AYUDA 


fichoro datos “ARCHIVO DIRECCIONES” 


generado 


pulso (roturn) para volver al menu 
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Voz 2: Introducción. En el menú principal se ha 
seleccionado la voz 2, posicionando el indicador 
(sprite) y pulsando fl. 

El programa presenta la máscara de introducción de los 
datos, en la que el cursor está posicionado en el primer 
campo y espera la introducción. 


Aquí, la máscara vídeo se ha completado con los datos 
que se desea memorizar. Para cada carácter tecleado 
por el usuario, el cursor se desplaza una posición hacia 
la derecha. Cuando el dato se ha terminado, el cursor 
puede posicionarse al principio del siguiente campo 
pulsando RETURN. Si el dato llena completamente el 
campo reservado al mismo, el desplazamiento del 
cursor es automático. En la foto, el cursor está 
posicionado al final del último dato tecleado. Para 
activar la transferencia al soporte magnético es 
necesario pulsar RETURN (el cursor se desplaza al 
principio del primer campo) y a continuación f8. 


Voz 3: Variación. Después de haber introducido un 
cierto número de datos, por ejemplo se desea efectuar 
una variación. Por tanto, en el menú se seleccionará la 
voz 3 (Variación). 

El programa leerá en el soporte magnético el número de 
registros grabados (uno por cada nombre) y pedirá 
cuál de ellos se desea modificar. En este caso se 
supone que se quiere variar el contenido del registro 6. 


El programa lee en el soporte magnético y presenta en 
pantalla el contenido del registro 6. El cursor está 
posicionado al principio del primer campo, en espera 
de que el usuario indique las variaciones a realizar. 


Ediciones Forum 


INPELETDO! 
¡INOMBRE] 
CALLE] 
CIUDAD] 
¡PROU.! 


ICTRLAY AYUDA) 


AA). tapias 
¡NOMBRE! ramon 
ICNLLE] dante 19 
[13 £ barcelona 
ba 110M44A 08032 
393 
2297214 


Ediciones Forum 


Ediciones Forum 


fa engracia £8£ 
CIUDAD] madrid 
DIA 8031 
31 


uy. 4483726 
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Utilizando las teclas de desplazamiento del cursor se 
está posicionado en el campo que contiene el código . Ediciones Forun 
postal, que es el dato a modificar. 


Mu). sanjose 
INUMBRE: enrique 
¡CAL santa engracia 89 
ICTUDAD] Madrid 
PROG. ma 1MA 28010 
PREFIJO] 91 
UAnAdUiy 4483726 


ICTRLAY AYUDA] 


En la foto se ve el nuevo valor del dato en la fase de 
modificación. El programa ha presentado en la pantalla, 
en color diferente, el nuevo código postal. El cursor está 
posicionado al principio del campo que sigue 
inmediatamente. Para transferir al soporte magnético el 


nuevo contenido del registro 6 debe pulsarse la tecla f8 AA 


INUMBRE] enriquo 
CALLE! santa engracia 89 
¡CTUDAD] madrid 

ma WAA 28011 


AYUDA 


Durante la operación de transferencia al soporte 
magnético, el programa presenta este cuadro 


VARIACIÓN GRABACIÓN HUM, 6 
EN CURSO 


Terminada la operación de modificación es posible 
pedir la variación de otro registro (en cuyo caso, el 
programa volverá a pedir el número del registro), o bien 
puede volverse al menú principal. Esta última es la 
elección que se ha hecho, 


C15 OTRA VARIACIÓN 
25 VUELVE AL MENU 


611 ja7 
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Voz 4: Ordenado. En el menú principal se ha 

seleccionado la voz 4 (Ordenado), y el programa ha DS Ediciones Forun, 
presentado el cuadro que se ve en la foto. En él ; 
aparecen las descripciones de todos los campos que 

componen cada registro. Ahora es posible indicar a NS 

qué campo se desea ordenar el archivo. ; 


IRALA 


En este ejemplo se desea ordenar alfabéticamente el 

archivo haciendo referencia al campo APELLIDO. Por 

tanto, se ha introducido el código 1. 

El programa ha cambiado el color de la descripción 

elegida y está procediendo al ordenado de los DICO BARA DE O PDEL CAMPO 
registros, trabajando en la memoria central. 


UTRTIV AYUDA 


Al final de la fase de ordenado, el programa espera que 
el usuario elija el periférico al que se desea dirigir la 
presentación de los registros ordenados. 
Seleccionando la impresora es preciso comprobar si 
ésta se encuentra efectivamente conectada al 
ordenador, puesto que de otro modo, la ejecución se NU 
interrumpiría. 7 ANAL 
<C2535 iMmprosion en papel 


cual 7 M 


Se ha decidido presentar el archivo ordenado en la 

pantalla, introduciendo el código 1 ante la anterior 

petición del programa. Los registros se presentan uno ARELLA DO e 

por uno. El primero es el mismo registro que se ha CALLE anta engracia 89 
modificado; puede comprobarse que la variación eS qa Pa0LO” AE 
realizada anteriormente se ha grabado normalmente ¡EXEFONO JAS Teo 

Pulsando una tecla cualquiera podrá presentarse el 


segundo registro, y así sucesivamente todos los demás 


Voz 5: Búsqueda. La función de búsqueda sirve para 

comprobar la existencia de un determinado registro en .S, Ediciones Forum 
el archivo, o bien para extraer un dato de un registro 

conociendo uno cualquiera de los datos. 

El programa, después de la selección realizada en el 

menú principal, presenta la máscara de introducción de 

las claves de búsqueda, que pueden completarse 

únicamente en los campos que interesan. 


FOX 


AUD 


Supongamos que se quiere hallar el número de teléfono 
de una persona de la que sólo se recuerda el nombre 
de pila y no el apellido. 

En este caso deberá desplazarse el cursor al principio 
del campo NOMBRE (el segundo) y teclear el nombre 
que interesa (Vicente) 

Al final debe pulsarse la tecla RETURN, y se adquiere la 
clave de búsqueda (el cursor se desplaza al principio 
del siguiente campo). Para activar la búsqueda en los 
registros es necesario pulsar la tecla f8 


Completada la fase de búsqueda, el programa pide 
que se especifique el periférico de salida. Esta vez 
también se pide la pantalla. 


En la pantalla aparece el primer registro que satisface la 
condición impuesta (correspondiente a una persona 
cuyo nombre es Vicente). Si ésta es la persona 
buscada, la búsqueda termina. Si no fuese así, 
pulsando una tecla cualquiera, en la pantalla se 
sucederán los datos correspondientes a todos los 
Vicente del archivo 
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== 
La lógica del programa 


O REM ESTER 
FEM + BANCO DE DATOS DOMESTIC 
2 REM e 
REM VERSION COMMODORE 64 + 
AA AOS 
FOKE 508,225 
0 U$c10="%* PULSAR LA TECLA "LA IMoUgc2)= "PULSAR LAS TECLAS “LA 1 Y A" 
2 as FEXERIRIRO PRINCIPAL FARAEARRRAE 
RE 


5 DIM ARSC100) REM REGISTROS UTILES 

19 DIM 13100), J50100>,59(100,27 

¿4 DIM BF(20%, TP209,LO(20), HADC20), 002000120) IX CO, DCZ 
DIM TEC) DECI 10G CO) 

BLt=r "PODES" Ago” EOI A E 
USE=CHREC133) 408 Y0=1:NY=6:XC0=7 00: 252 POKE 650,128 

> PRINTHOS : GOSUBI1300:PRINTHOS : PRINTCHRO 142) FEM 4 MENU 44 
1F 0P2=8 THEN 5964732 

COSUB20900 

23 POKE 53231,6:POKES3280, 14 

S FOR 1=1 TO 15:READ TF<I>:NEXTI 


y 


earn 2] 
AR 5 ARA 

1301 REM + MENO RICA + 

LIDZ REM AA II RA 

1303 Lv=-1 :FUNES3281,6 POKES3200,6 

1309 Us=" ENU- "OPZ=OFCOPZIS TI MAA TT TAO TA AU GOSUE 7000 


SS=s324a: POFESS+21, 1: POKE2040, 13 

RESTORE 

FOR 1=9 Mu 62 READA: PUKES32+1,M:HNEXTI 

FOKESS+39 1 501=5002=111 

3 GOSUB 1363 

GOSUB 1306 

Y GET 0PZ+ 1F 0P2Z4="" THEN 1327 

IF OF 114 THEN C2=C2416*0P2=0P21 :GOSUBILIGS 
IF OFZ3=SUF THEN C2=C2-16:0PZ=0P2-1 '5OSUBI1363 


IF Asc: L0P2$)= 25 THEN GOSUB 1456 :G0T01305 

GOTO. 1327 

63 REM OE 
E COcit THEN: L2=02+160-Z=0P2+1 RETURN 

191 THEN C2=C2-16:0P2=0P2-1- RETURN 

SOI POKESS+1), 02 

RETURN 


GOguE: 11000. 

PRINT"A "5 YOSL0PZA 

FOR T=1 TO 10007MEXTT 

POKESS+21. PEEKCS S3+21 ANDES: 

RETURN 

REN 4er7e 

REM 

99 FOR Jul TO We READ VOSCJ>:NEXTJ 
AS 

FOR 11=1 TO NY 

ARCA TIASZA NE 

GOSUE1L 1009 

A 

RETURN 
DATRO,0,0,0,96,0,0,144,0,3,32,B 
DATR4,64,0,0,143,252,17,112,2,224,129, 252 
DATAD.63,0,0,65.0,0,63,9,0,31,0 
DATAB,33,0.0,31,0,224,63,0,16,581,0 
DATA15.30,0,0,0,0,0,0,0,0,0.0,0,9,9 
Pa lENERACION DEL SISTEMA" 
ATA"2- —NTRODUCCION" 


RTA"4- PRDENADO" 

DATA"S- IUSQUEDA" 

DATA"6- —IN DE TAREA" 

REM AR AYUDA MENO ado 
PRINTCHRSC 147) :PRINTCHR3C140 
POKESS,255:POKESS+1, 1151 POKES9+39,6 
POKESS+40, 6 FOKESS+91,6 
POKESS+21.,7:POKE2040,13:POKE2041,14:POKE2042, 15: POKESS+29, 4 
FORN=9T062 : READO : POKES324H, 6: NEXTH 

FORN=9T062:READO: POKESI6+N, 0: NEXTH 

FORM=6T062 : READA ' POKE969+H, (1: NEXTN 
POKESS+39, 1: POKESS+40, 1:POKESS+41,1 

POKE 53231.6 

CINTA AAAÁ—————— AAA 

1432 FOR I=1 TO 15:PRINT"AI 15 NEXTI 
II A ÉáÁñúÁAAÁAAAAAAAAA 


, 
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S GOTO 33 


PRINTCHR$C 199 PRINTTABEZ) "NUIT TT 
POKESS+2, 255: POKESS+3, 145: FOKESS+4.245:POKESS+5, 180 
PRINT"NBINDESPLAZA ABRAJO:" 

PRINT"NBBIDESPLAZA ARRIBA: " 

PRINT"RMBINTRODUCE OPCION ELEGIDA: " 

PRINTTAEBCS) "MOTA A ICAA AA SU 
GET RSS IFRE=""THENIS1S 

POKES3+39, 6: PRINT"0" : RETURN 
DATAS,259,192,12,0,22,16,16,16,32:56,8,232;108,3 
DATAG4,40,4,64,48.4,64,0,4.93,206,228,81,72,164 
DANAS1,206.228/81,66,164,/93,46,1949/64,0,4 


5 DATAC4,40,4,64,40.4,32,103,2,32,56,8,16,16,16 


DATALZ,0,32,3,255, 192 ] 
DATAS, 255, 192, 12,0,32,16,32,16,232,120,2,32,192,8 
DATAG4,120,4,64,32,4,64,0,4,93,206,228,91, 72.164 
DATAS1,206,228,81,66, 164,93.46,143,64,0,4,64,16,4 
DATAG4,120,4,32,12,8,32/120,8,16,16,16,12,0,32,3,/299: 192 
DATAO, 0,4. 7,255,224,24,6,24,96,0,6,128,0,1,129,1,129 
DATR1S4,131,129/132,2,129,132.,129, 142,0, 129 
DATR1S2, 4, 129, 132,0. 129,132,0,129,123,0,1,96,0,6 
DATA24,4,24,7,255:224,0,0.0,0,0,0.0,0/0,0,0,0 
a FIN DEL MENU PRINCIPAL 

E 

REM 444% PRESENTA MASCARA 44% 
Ri 


E J=1 TO NUC 

Ar="" 

MEDACIO DEJO GOSUB1 1000: PRINT"A "DECI 
TF TRLII<S AND TPCTF<4 THEN 2060 
ado CC) GOSUBL 1000: PRINTUA "¡BICI 
GOTO 2134 


SA His MANDOS IF TPCJO=1 OR TPCJ)=2 THEN C$=NS3:GOTOZM65 


CI=A9+ 


59 1F Nir1 THEH AS=C$:GOTO209S 


FOR 151: TO N1-N2-1:A$=5A$+C4"MEXTI 
IF Ne=0 THEN AS=A3+C09 GOTO 2095 
HI=ADPDE 

FOR I=1 TO N2:A$=4$+"0" :NEXTI 
ASCII CA CIO COSUB 11000 
PRINT "9" ¡AT;"a" 

Bi 


FOR k=1 TO HI-M2-1 


BECIOSBECIOANSS 

HEXT K 

IF H2=0 THEN BSCI)=BSCI)+NS$ GOTO 21230 
ESCJ)=B1C.15+PDS 
FORK=1TONZ+EFCIH=BS CI ENGS > NEXTK 


O HEST J 


REM 
RETURN 
REM 


REM 

REM 44 DATA ENTRY +4 

REM 4 
REM 

J=1 

REM 

HC RRCHOHCA EC UNCO 

£C=1 a 

GOSUE 3290 

IF FS=9 THEN RETURN 


D IF Fo=b THEN 3100 


IF FS>4 THEN 3210 

GOTO 3120 

REM CARÁCTER É 

J=141 TF JONUC THEN 3030 

GOTO 3049 

ON FS GOTO 3130,3150,3170,3190 
IF J21 THEN J=J-=1:60T0 23049 


3 FS=90 J=MUC GOTO 3040 


TF JSNUC THEN J=J+1:G0T0 3040 
FS=6:G0T0 3030 
IF OOALCOTO THEN S=1 00 0=00+1 X= +1 G0SUE -11000:G0TO SaGA 


Bd FS=6 G0TÓ 3100 


IF 0051 THEN S5-1+00=0C=1:X=%=1 :G0SUB11008:G0TO 3060 


¿00 FS=B:G0T0 3035 


REM 


¿0 1F FS58 THEN FS=4:G0T0 30608 


IF. FS=8 THEN FSs8:G0T0- 31500 


S RETURN 


REN 


Y REM 4% LECTURA DE 1 CAMPO +4 
REM 


IF TP<NCI)=4 THEN RETURN 
1F TPCHCA=. THEN GOSUE 9000 RETURN 


Y IF MIDECESONCI CC 19=PDS THEN=%+S 5 0C=CC+S 


GOSUE 11000 
TIRESTE AFI" THEN 338 
COSUB1 1004 PRINT" ae"; GOSULI 060: PRINTUAS MIDA BENI OO, 1d 
FOR -T=1 TO 20HEXT T 
Al 


ALSOPASE CARO 2DOPASO (AFA 14 TORASCCASI=148 ORASCOAF)=44 THEN 3390 
E . 


mus 
SCA MEN PS 6] T=15 GOSUESCAO: PETUOH 


144 TENSPEREMETA AL DUFFER 44 


da 

IF LC=1 THEN SH2=" 6070 39%9 

HE SLENTI CRE CNO, ELL 

LE RIOS e recoge arias 


RETURN 

EEN 

REM OFE COMANDOS 44 
REM 


FS35 THEN 37109 


THEN GOSUE 13000 - RETURN 

THEN GOSUB 4084 RETURN 
$ THLA RETURN 

ON FS 3 GOSUB 3740,3010 


REM 4% DISERCION 4 
¿En 


IF COSLOCNCITHEN RETURN 
IF CO6s1 THEN SNS="":G0TO3300 


TE SNI-LEFTECESCNC>,CL-1) 


MALCINCI 20410 DESSRIGHTEC BRONCO NO 
Cs-=ELg 
RISSNACIEFDES 


3 BSINCISLEFTIC AS, LECHO 


ARENA 

al AEHES WaCUUNCO + GOSUE 11009 
AI A 

REM 

PRINT-ESCNCI:S: 

IF RIOMTSCBLCICO e DSPES THEN 3729 
STINBn 


En 
REM RRE BORRADO HR 
REM 


IF TPONCI<O1 THEN 3950 

IF MIDSCBECNCI 2,13 FDS AND LO=1 THEM RETURN 
TF -CC<1 THEN RETURN 

IF CC=sLCCNCO THEN DES="":GOTO 3930 

MALCONCI CE DESSRIGHTECEFCNCI 
SMISLEFTECESONCO,CC-1) 

1 a OR TPONCA=2 THEN CI=H3%:G0TO 4010 


0 latinos Sel RETURN 


030 REM ARRE ALIADOS KRRERAE 


TF LOÓNCI=1 THEN RETURN 
HI=LCCNCIEC+1 

IF CO=1 THEN ES(NCI)="":G0TO4100 
EICNC=LEFTSCBICNCA CEL 

IF TPOMC=1 OR TPONCI=S2 THEN 4150 


A FOR I=1 TO M1 


BS(NCI=BFONCIABLS 
MET 1 
GOTO 4190 


O FOR 1=1 TOt 


SONO) CHE LIZ) EBSCO) 


YO NEXT 1 


IF RIGHTSCESCNCI,19=PIF THEN ESÓNCI=BLE+LEFTECBFCNCO,) LEXNCO=1) 
MSCHONCO > EW CNC) ¿GOSUE 11000 
PRINT BSCNCA RETURN 


SUP=g 


Y IF CO=1 OR CO=LCCHC) THEN SWP=1: RETURN 


FOR T=1 TO LOCOS 

1F MIDICEFCNC>,1,1=BLE THEN I=LCCHCA 0 SUP=1:RETURA 
E TRETURH 

REN 


REN 

REM 4% VARIACIONES ** 
IF ARFCIA<O "0" THEN 3007 
RG=1:G0SUE 6090 


5 IF R$="/" DR R$="N" THEN RETURH 


PRINT HOS:GOSUB 70560 
RESVAL CARE (87 
26: rg aa PRINTINTRODUCIR dE HUMERO DE GRAERCION" 
PRINT" A YARIAR € 1 2" RES"9";5: IHPLT + 
IF NS<=B OR HS>RE THEN GOSUE 91560:G0TO Sora 
PRINT HOF:GO0SUB 7000 
ARS=AAS NS) 
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ESC1ISLEFTECHAS, 157 BSC2)=MIDGCARS. 16,10): B5C3)=MIDICAAS, 26,20) 
ES(43=M1D3¿RAAS, 46, 155 BSC5I=MIDG(RA3,61, 25 B3C69=MIDIECARS, 63,5) 
ESCPA=MIDIECARS 68-40 EFC3)=RIGHTECARS, 8) 


REM 

FOR K=1 TO 8:TP(K)=4:NEXT K 
GOSUE 2000 

GOSUE 7006 

GOSUE 3004 


IF FS=6 OR FS=9 THEN GOSUB7094: GOTOSDAD 


IF FS=7 THEN RETURN 


AASINS BECA BECL ABRO ABRA A BECA BE CEA BICTIA BRE) 


FRINT HOS 


4=2:Y=10:GOSUB11000:PRINT"SCALECA OTRA WARIACION" 

v=Y+2:605UB11000:PRINT"E QA GRABACION DATOS YA INTRODUCIDOS" 
R=16:=4+2:G0SUB11000:PRINT"MELIJA":=22:GOSUB11000 

GET R$: IF R$=""THENGOSUB11000:PRINT" >": FORT=1T0100:NEXTT:GOSUEL1000:PRINT 


R=VALCR$>:1F R<=0 OR R52 THEN FORT=1T070'HEXTT:G0TOS169 


IF R=2 THEN RG=2:G0SUB 6900 
GOTO 5606 


REM RRAFTILORRERELIREEEEI A R 
REM 


REMERA GESTION CINTA 444 
PRINTHOS 


A PRINTCHR$(14) RE 
2 R=2 4=17:GOSUB1L1000:PRINT"SPOSICIONAR LA 


=21 :GOSUB110090:PRINT"E ECHO Cos: 
GET R4:1F R$="" THEN 6015 

TF RE="N" OR Rt="7" THEN RETURN 
IF RS<O0S" MAD REO "e" THEN 6012 


OPEN 1,150, "ARCHIND" 
FOR RE=0 TO 100 
INPUT41,ARSCRES 

NEXT RE 


CLOSE1 


OPEN 1,1,1."ARCHIND" 
FOR RE=Ó TO 100 
PRINTR 1, AASCRE) 

NEXT RE 

ELOSE1 

PRINTHOS RETURN 

REN 


REM 


PRINTHOS :=2:=15:GOSUB11000:PRINT"K ADE 
W=142:G0SUB11009:PRINT“ALION GRABACIÓN DATOS YA INTRODUCIDOS" 


INPUT "RUABRRUAL 9":50 
IF S0<=0 DR 502 THEN 6216 


0 RETURN 


a SUBRUTINA DE SELECCION == 


REM 

FOR RE=1 TO Mx 
IS(RE>=B 

REM 

ARESARAFCRES 
ASSMIDSCARS NINO 
IF ASCOCOS THEN 6930 
11=11+1 

ISCI)SRE 

NEXT RE 

RETURN 

REM 

REIR CARGA LOS DATA 444 


LELENOYOSCOPZ 3-3: LE=RIGHTECYOS(OPZI Lo: 1E OPZ=0_ THEN 


UESIROZ MASTRELOP ZE 


Paca 2: Pg="":FORK=ITOP:Pg=Pg+" "o NEXT Ok 


PRINTS!) ¿PRINTOHREC 140 


PRINT"NZA AO DICIONES DRUM, 4.4." 


A E AA 

PRINT"MIA 30 PS. 

IF OP2=0 THEN PRINT"S ma"; 
PRINT"MAU LE" Pr 

PRINT BER 

IF OFPZ=1 THEN 7040 
X=1:W=22:G00S9UB11000:PRINT"T——— 


(225 :=23 :605U/B11000:PRINT" Az Ll 


REM 
IF OP2=5 THEN RETURN 


ON -0P2 GOTO 7110,7050,7050,7050, 7059 


LW=15'GOSUE20090 :NUC=8 
FOR 1=1 TO NUC+READ' D$C1>:*NEXTI 


CINTA DE PATOS" 
CONTINUA, UIPYUELVE Fil MERLO” 


OTRA INTRODUCCION" 


1 7005 


FOR I=1 TO NUC:READ TPC LECIO, NBC IO DCI DIO CRC IO OT) 
REM 


NEXT 1 

RETURH 

REM +4 INTRODUCCION 4% 

IF ARECIO<O"" THEN 2004 

RG=1 :GOSUE 6000 

1F R$="M" OR R$="/" THEN RETURN 


4 PRIHTHOS :GOSUB 7000 


RE=YAL CARS OD) :RE=RE+1 
IF RE“=100 THEN 3050 
PRINT HOS:PRINT"FICHERO DATOS AGOTADO" 
PRINT"PULSE UNA TECLA PARA YOLYER AL MENU" 
POKE 198,0 WAIT 193,1:RUN 19 
GOSUB 2000:REM kk MASCARA xk 
GOSUE 3000:REM * DATA ENTRY + 
1F FS=6 DR FS=9 THEN 2003 
1F FS=7 THEN RETURN 
ARSCRE)= BSCLABECZI ABE CIA BICI ABI ABI ABI ABE 
REM ACTUALIZA PRIMER REGISTRO 
IF RECIO THEN RE$="00"+RIGHTSCSTRECRE),1):G0TO 3130 
IF REC100 THEN RES$="9"+RIGHT$CSTRICRE>,27:G0T0 8130 
RES=RICHTSCSTRICRE?, 3) 
Fl$="":FOR K=1 TO 7E:FlI$=FIS$+"4" :NEXTK 
RAS(D)=RES+FIS 
GOSLIE 6800 
IF S50=1 THEN 8150 
RG=2:GOSUB 6005: RETURN 
50TO 2003 
Ade ARANA AR 
E 


2EM 
REM RUTINA CÁLCULOS 
REN 


REM RUTINA ERROR 
=9:Y=20 :5609UB11000:PRINT" BT 77 ALTAS 
FOR T=1 TO SO0:NEXT T 
X=9:Y=20:G0SL/B11000:PRINT" "RETURN 


10000 REM 4RRERRRERRE DATA RRA NAO 
En 


. 
pa] 
> 
Pa] 
1] 
zD 


10019 DATA 145.17,29,157,140,133,136,13.25,134,135,0,0,0,0 
10013 REM RRRRRRR OPZZZ RARA 
10015 DATA“WRTULLS TRANS AA, BM" 


160020 DATA". 1.) MIL OMITE 
10023 REM 
10055 DATAS,15,0,7,7,16,7,3,10:0,7,9,16,9 


10057 DATAS.20,0,7,11,16,11,3,15,0,7,13,16,13 
100532 DATA3,2,0,7,15.16,15,1,5,0,21,15,28,15 
10060 DATA1,4,0.,7,17,16.,17,1,8,0.7,19,16,19 
10030 REM 4HRERRRE OP ZAR 

1OZ0O REI AAA de AAA RR: 

11000 REM 


REM 444 POSICIONADO EN XV dd 


11005 POKE 211,% 


11020 RETURN 


REM 
REM ++ GENERACIÓN SISTEMA 44 
¿REM 


2005 GOSUE 7000 
12010 X=10:=3:505U511000:PRINT"GENERACION EN CURSO" Y=Y+2:G0SUB1 1000 


12015 IMPUT"CONTINUO (SINO) ;RE 

12020 IF Rg="NO" THEN RETURN 

12025 IF R$<>"SI" THEN 12010 

12038 X=2:=13:G0SUB11000:PRINT"SESTE PROGRAMA PREVE UN MAXIMO" 
12035 M=946: +1 :G0SUB11000:PRINT"DE 211008 GRABACIONES" 
12055 ARS) ="0" 

12060 FOR M=1 TO 78:ARS(0)=ARS(D)+"4" :MEXTHM 


12062 REM FORMACION REGISTRO TIPO 


FOR tM=1 TO 100:AAS<M=AASCO) :NEXTM 


12076 REM PREPARA PRIMER REGISTRO 


RG=2: GOSUBED1O 
RETURN 


A AAA 


13000 REM de AYUDA 44 
REM 


POKE 53280,€:PRINTHOS; : AS 
PRINTTAB(S>"MACESE RIGHT ¡MUEVE A DERECHA " 
PRINTTRAE<S>"MACRSE LEFT: z 
PRINTTAECS>"MALESE UP 
PRINTTABCS"MACESR DON 
FRINTTABCS> "MA Fi” 
PRINTTABCS> "MA FS” 
PRINTTABCS) "MA FS” 
PRINTTAECS) "MA F?” 
PRINTTAE<S) "MA FS” 


MUEVE ARRIBA a 
ANULACION > 


VUELTA AL MENU Y 
INTRODUCCION di 


PRINTTABCS"MACTRL+Y : E AYUDA 
REM 
PRINTTABCS) "MAFETURN 2 BO ALINEAR po 


PRINTTABCE>"MAPULSE UNA TECLA PARA VOLVER" 
GETRE- 1FR+=""THEN1306É 


GS PRINT HOS- PRINTCHR$(14):FPOKE 53230, 14 


RETURN 

REM 

REM dk BUSQUEDA 44 

IF ARSC1)<O"" THEN 14009 
RG=1:GOSUE 6000 

IF R$="," OR Rf="N" THEN RETURN 
MESVALCARECO)) 

GOSUE 7000 

GOSUB 2000 

LOSUB 3000 

1F F3= E OR FS=2 THEN 14010 

IF FS=7 THEN GOSUB 6409 :RETURN 
00 

FOR M=1 TO NUC 

1F TPONDOZ AND ASOCLEFTECBGC NA. 1))=32 THEN 14100 
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14035 
14000 


MS THEN 14100 
LOPE 
HL=4*MI=0 REM EXTRAE NI Y NL 


2 FOR D=1 TO NuUC 


IF D=bl THEN 14052 


7 MISMIALL ADO 


HEXT D 


2 MELECDO HI= 141 


GOSUE 6906:REM SUBRUTINA DE SELECCION 
IF 94250 THEN 14050 
Q=1 


53 FOR G=1 TO Mx 


JS(65=18(G6>+ NEXT G 

GOTO 14100 

FOR K=2 TO Mx 

FOR L=2 TO Mx 

IF ISCK3=ISCL) THEN 14099 
HEXT L 

JSK9=8 

MEST OR 

NEXT 

REM -- BUCLE DE IMPRESION — 
PRINT HOS:PRINT"3Y 


BG v=10 Y=10 GOSUBI11000:PRINT"CALMON IMPRESION EN YIDEO" 


R=10 2442 GOSUBL 1000 PRINTUNCIOROS IMPRESION EM PAPEL" 


O wo GOSUB11060: INPUT"CUBL "¿SC 


IF SC<1 OR SC>2 THEM 14160 
PRINTHOS OPEN4. 9 
FOR L=1 TO Mx 


S IF JSCL:=0 THEN 14345 
1 


RE 
AAS=ARSFCISCL 
BSCISLEFTECARS, 15) "EF C2I=MIDECARS, 16,10) BL£C3I=MIDECARS, 26,20) 


215 Pg MI DECAAL 46, 150 DICSIFMIDSCARS. 61,2) BI62=MIDICAAF 63 


ESCPISMIDECNAS 6,4): B5(8)=RIGHTSCRAL, 3) 
26 
LISLENCBECZA) 


Y FOR Zi=1 TO LS 


IF ASC(LEFTECBLE(Z),2199=32 THEN ESCZIRICHTE (ESC LO-210 
q 


2 THEN 19200 
4205 


dd 
1 SE=2 THEM C11D4 PRINTCHR$<17) 
PRINT'O TUS TAG BEI 
BO PRINT" M4,” ",BSC2> , 
FRINT!ALL— 1 BSOS) 
310 FRINT"=> ¿47 BECA MOB 
PRINT!".A "5 BSC6) 


E PRINTEC MI" BCB) 


I 2 


THEN PRINTR4 GOTO 14345 

E LOSUL11000PRINT"MSPULSE UNA TECLA PARA CONTINUARE" 
POKE 198,4: HAIT 198,1 

PRINIT HOg 


145 NEXT L 


15 
15001 
10 
15003 
15004 
15005 


ars 
DRA GOSUBLOGO PRINTUA aL eb— AA CL LA 


0 REM 


Sd GOSUEA AA PRAT 


A CLOSE4 


FOR Est TO MXSISCE)O ISCE)=0 NEXT E 
EM: erre iii a 


4220: GOSUB1L1000*PRINTUAPULSE UNA TECLA PARA VOLVER AL MEN" 
E 198,1 -MAIT 198,1 
1 


TE Me Lo THEN 15005 

PO=1:G0SUB E000 

IF REA OR RFS"H" THEN RETURN 

PRINTHOS <GOSUB 7806 

por ez COSUB IL PRIVA LT A LLANTA TANTO" 


MARISA GOSURIA1 OOO 
Si=A 


3 FOR 4-1 10 tm 


DIES pp 


PAE 315%. THEN Dot" yr 


LISO SLENCUEOAA IE LOs0 THEN 15 
FOR L8=1 TO L9' DIF Dip" “¿NE 


ZP DECKS DIG 
HESTOK 
16: W=20 DOSUBLIDOD PRIMT"ALEL TIM 
1 51350 THEM 15065 
GET -SI$:TF SIG" THEN 15060 


O COSUE1 1000 PRINT" 3" FORT=1 70100 HE7T GOSULL1O0O PRINT"_” 


FORT=1T070%HEXTT-GOTO 15045 
S1=WALUS1$3:1F,51<1 OP 4158 THLU 15045 
A=13:1'=9 GOTO 15025 

HI=0:NL=0:REM EXTEHE MI Y HL 

FOR D=1 TO Nue 

IF D=S51 THEN 15085 


3 MISHI+ALOCDO 


NEXT D 

HLSLCCD)NI=NI+4 

GOSUE 15500: PL SUBRUTINA ORD AA 
T-HO+ 


REM -- BUCLE DE IMPRESION -- 
FOR I=1 TO y 

JSCIIFISCI NEXT 1 

=M 


GOSUB 14110 


15410 RETURN de 1 lA E 0 AAA A 
15500 REM -- ORDENADO -- 

135190: HSVRECARCCOIO.S Te TER ¿OA ZETA IZ NE SARTRE TZ APENINZA 
153943 P=0 

15545 FOR EISDATOÉN:£ a ¿a ct dl a tó dE Y o ll DEA + A =>" AS IPN 
15550 ISCI>=I ¡NEXT 1 j 

EE A TA A A A 
15560 I-=11:J=J1'3=-1 

15565 AL$F=MIDSCARASCISCI NT ML) +BLFSMIDECAASCIS CIO NIH A TA IA A A 
15570 1F Ri$<=B1$ THEN 15525 

19575 Y=ISCI): SAI EME TEE ATENTA A UA 
15580 IS5(JI0= Y: S2SGM(-E 


15385 1 Sel. MEN VEIA LA SA E 
5390 

15595 1F 1<J THEN 1 

15600 1F 141531 THEN 15620 

15605 P=P+ 

15610 S9cP, 17=141 SH 235 J1 

A =1-1 


19625 TF TICJ1 THEN 15560 
ATHEMILTIOD SS 1 a AENA 7 e E AR TE TA APA TT 

15635 11=39(P,1)3 Ji=S9P,2)P=P-1 
15640 | 
15900 FEM 
15910 RETUR 
20000 REM RESTORE DATA 

5 RESTOR! 


2000 
20010 FOR I=4 TO 62:RERD D NEXTI 


20029 P00 191 TURN TI MA, 
20025 FOFK=1 TO 

20030: FOR 1=8 O 
20035 METI s 


20 5 LC TI | RI 
20050 FUR 1-1 ro Le FOND L 44 MESTI 
20100: RET 


RELACION DE VARIABLES - COMMODORE 64 


= blank  DY(x) = coordenada vertical de la descrip- 
= Carácter ".”; usado en data entry ción 
=carácter "-"; identifica los campos  TF(x) = matriz de los códigos ASCII de las 
alfanuméricos de data entry teclas de comando reconocidas 
=carácter "+”; identifica los campos LV =Usado para la lectura en vacío de 
numéricos de data entry los datos (RESTORE simulado) 
= cursor a derecha (tecla CRSR =) = número de campos de introducción 
= cursor abajo (tecla CRSRI) en una sola máscara vídeo 
= borra la pantalla (tecla = contador de caracteres en el cam- 
SHIFT + CLR/HOME) po de introducción 
= flag de salida del menú para la op- = código ASCII del carácter introduci- 
ción elegida (1 < OPZ <) do por teclado de data entry 
= matriz de los buffers (1 por campo = cadena para lectura y escritura de 
de introducción) datos 
= tipo del campo de introducción MX = número máximo de registros a pro- 
= longitud total del campo de cesar 
introducción COs$ = Cadena usada para la comparación 
= número de decimales en el campo en la subrutina de selección 
de introducción NI NL = bytes a extraer del registro para la 
= coordenada horizontal de principio selección 
del campo de introducción JS(+) IS(*)  =matriz de los punteros a los regis- 
= coordenada vertical del campo de tros en las subrutinas de búsqueda 
introducción y de ordenado. 
= coordenada horizontal de la des-  S9 (x, ) = matriz usada para el ordenado de 
cripción los datos (subrutina 15500) 
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Los listados / Versión Commodore 64 


Este programa utiliza, con algunas implantacio- 
nes, las subrutinas anteriores, y permite la gene- 
ración completa de un archivo de datos. 

Las funciones que realiza son las siguientes: 


— Generación del archivo 
— Introducción de datos 
— Variación de datos 

— Ordenado 

— Búsqueda 

— Impresión 


Con estas funciones es posible definir y gestionar 
un archivo cualquiera, cuyo contenido sólo de- 
pende de los campos de los datos. 

Gran parte del trabajo se realiza utilizando los mó- 
dulos vistos anteriormente. Las funciones de or- 
denado, búsqueda e impresión son nuevas. 


El esquema lógico de todo el programa puede 
verse en la figura de abajo. 

La fase de inicialización tiene la finalidad de im- 
plantar los valores iniciales de todas las constan- 
tes, mientras que los otros bloques activan las 
funciones específicas de la opción seleccionada 
con el menú (1300). 

En los programas que prevén la gestión completa 
de un archivo, las principales funciones son: 


— Introducción (8000): permite insertar nuevos 
datos en la primera posición vacía del archivo 

— Variación (5000): se utiliza para aportar varia- 
ciones a los datos ya introducidos. 

— Ordenado (15000): prepara los parámetros y 
llama la (15500) 

— Búsqueda (14000): selecciona entre los datos 
en el disco o en la cinta los que tienen un de- 
terminado valor en el campo clave elegido. 


PROGRAMA PRINCIPAL 
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La rutina de presentación del 
menú es idéntica a la 
anterior; sólo varían 

las leyendas 


Fin de tarea 


PARAMETROS DE LA MASCARA DE INTRODUCCION UTILIZADA 


Téngase en cuenta que al ilustrar los diagramas 
de flujo siempre se hará referencia a la versión en 
disco. La única diferencia en las versiones Com- 
modore y MSX consiste en la necesidad de car- 
gar todos los datos en memoria antes de proce- 
der a un proceso cualquiera y, naturalmente, esto 
repercute en el número máximo de registros ges- 
tionados (80). 

El programa puede utilizarse para muchas aplica- 
ciones variando sencillamente las máscaras (los 
datos leídos mediante la subrutina 7000), el cam- 
po clave para el ordenado (parámetros NI y NL), 
y la lógica de selección para la búsqueda. 

A continuación se hará referencia a la versión que 
permite gestionar una base de datos personales. 
Para esta aplicación, los campos definidos en la 
máscara vídeo de introducción tendrán las carac- 
terísticas indicadas en la tabla de arriba. 


Generación (subrutina 12000). Esta subrutina 
debe utilizarse sólo una vez para preparar los re- 
gistros que contendrán los datos. La primera fun- 
ción que realiza es un diálogo con el usuario para 
pedir confirmación de la petición (el procedimien- 
to podría haber sido activado accidentalmente) y 
después presenta la longitud máxima del fichero 
(en número de registros) Después de esta fase 
sigue la apertura del fichero y la escritura de un 
número de registros en blanco igual a la longitud 
máxima de los registros, que es una forma de 
«reserva» del espacio. 

En el diagrama de flujo, la longitud del registro 
está indicada como la suma de las longitudes de 
los diversos campos. Para abreviar, en el listado 
se ha representado como valor fijo (línea 12110). 
En esta fase (inicialización) también se implanta 
el valor del registro 1 (directorio), destinado a 
contener el número del último registro utilizado. Al 
final de la generación, el programa emite un men- 
saje y vuelve al menú principal. En el diagrama de 


flujo se ha insertado también la posibilidad de bo- 
rrar un fichero eventualmente preexistente, y esto 
sólo a efectos indicativos; en el listado, esta fun- 
ción se ha omitido, pero puede insertarse. 
Finalmente, obsérvese que en el listado aparecen 
algunas llamadas a una subrutina no indicada en 
el diagrama de flujo, en particular la que escribe 
el título en la parte alta de la pantalla. Esta fun- 
ción, por ser secundaria e irrelevante de funcio- 
nalidad, se ha omitido. 


Introducción (subrutina 8000). Las funciones 
que debe realizar esta subrutina son las siguien- 
tes; 


— Implantación del nombre del fichero 

— Carga de los formatos de la máscara vídeo 
asociada 

— Lectura del último registro ocupado 

— Presentación de la máscara y gestión de la da- 
ta entry 

— Escritura en el fichero de los datos 

— Actualización del directorio 


La primera función, indicada a nivel lógico como 
una introducción, en realidad la realiza una ins- 
trucción de asignación; está indicada con la sim- 
bología de entrada de datos para presentar la for- 
ma más generalizada de la subrutina. 

Estas diferencias formales son frecuentes en los 
listados a causa de la generalidad que se quiere 
dar a las subrutinas. El usuario puede adoptar la 
versión tal como se presenta o sustituir la línea de 
asignación por una instrucción INPUT, o también 
anular la implantación situando el nombre del fi- 
chero en otro punto del programa. 

Las otras funciones no presentan ninguna dife- 
rencia con las análogas realizadas para los otros 
programas. Naturalmente, en los DATA (subrutina 
10000) deben escribirse los correspondientes va- 
lores de la máscara examinada. Los últimos blo- 
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ques resumen la técnica 
usual de escritura del nuevo 
registro de datos en la posi- 
ción 1 con respecto al ante- 
rior y la actualización del re- 
gistro 1 (directorio) para 
mantener memoria de esta 
introducción. 

El bucle en el punto 1 de la 
rutina podría parecer inútil, 
puesto que después de ha- 
ber escrito el registro RE 1, 
este valor ya está contenido 
en la memoria. Por tanto, po- 
dría pensarse en evitar la re- 
lectura del directorio, que 
proporciona un valor idénti- 
co. En realidad, aunque este 
método realiza una lectura 
más de lo necesario, asegu- 
ra el perfecto paralelismo 
entre los datos y el directo- 
rio, y constituye una técnica 
normal para garantizar la in- 
tegridad de los datos. 

Con pocas variaciones, esta 
misma subrutina puede utili- 
zarse para la actualización. 
En particular, debe insertar- 
se la introducción del núme- 
ro del registro a variar (o su 
búsqueda en base a un 
campo clave), su lectura y 
su escritura en la misma po- 
sición, sin incrementar el 
contenido del directorio. Sin 
embargo, la lectura inicial 
del directorio es necesaria 
para comprobar que no se 
ha pedido la actualización 
de un número de registro 
superior al último memoriza- 
do, operación que, sin em- 
bargo, no produciría ningún 
daño, aparte de la presenta- 
ción de una máscara en 
blanco o con valores erró- 
neos. 


Ordenado (subrutina 
15000). La subrutina de or- 
denado propiamente dicha 
(15500) necesita algunos 
parámetros (nombre del fi- 
chero, campo clave, etc.) 
que, para mantener la gene- 
ralidad de empleo, deben 
implantarse antes. 
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GENERACION 


La longitud del 

registro viene dada por 

la suma de los valores contenidos 
en la matriz C (») 


En la versión 

Commodore son En la variable AAS se insertan 

caracteres "4" tantos espacios en blanco como 
byles componen el registro 


El primer registro del fichero 
se uliliza como directorio, y 
contiene el número del último 
registro escrito 


de la llamada. | 
Esta función de preparación INTRODUCCION 
de los parámetros también 
se realiza en una subrutina 
para dejar el main lo más li- 
bre posible de instrucciones 
de control. 
En este caso particular, la 
subrutina que prepara los 
parámetros para el sort 
(15000) también contiene el 
bucle de impresión o de 
presentación (podría pedir- 
se la presentación en vídeo; 
en este caso debe insertar- 
se un contador que presen- 
te los registros uno por uno y 
active la petición de un 
acuerdo para proseguir). RE contiene el numero ; 
La rutina 15000 es parame- del último registro ocupado 
trizada, puesto que permite 
elegir el campo clave a utili- 
zar para el ordenado. El 
usuario puede seleccionar 
la clave de ordenado intro- 
duciendo el valor numérico 
que identifica el campo. Con 
este valor, la subrutina ex- 
trae el posicionado del cam- 
po en el interior del registro, 
o sea el byte de inicio y la 
longitud del campo; el byte 
de inicio se obtiene suman- 
do en un bucle las longitu- 
des de los campos que pre- 
ceden al que se ha elegido. 
Los parámetros necesarios 
para la subrutina 15500 son 
NI y NL. 
Con el retorno de esta última 
empieza el bucle de impre- 
sión. El vector IS(+) se trans- 
fiere a JS(+) desplazando su 
principio en 1. 

Este último vector (JS(«)) se 
utiliza como puntero al regis- 
tro del fichero de datos para 
la impresión según el orde- 
nado realizado. 


Sort (subrutina 15500). En 
general, una subrutina de 
ordenado (sort) tiene la fina- 
lidad de ordenar, partiendo 
de un determinado fichero 
de datos, una copia del mis- La subrutina de variación (5000) sigue una lógica similar, salvo en la 
mo con los registros escritos fase de actualización del registro 1, 

en orden creciente (o decre- 
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ciente) de un campo clave. 
Este tipo de ordenado tiene 
dos inconvenientes: duplica 
un fichero en el disco (el ori- 
ginal y la copia) y no puede 
utilizarse, si no es mediante 
grandes modificaciones, en 
las versiones de cinta. 

Por el contrario, la estructura 
utilizada en la subrutina re- 
presentada en las páginas 
171 y 172 no genera copias 
de los datos y puede incor- 
porarse fácilmente en la ver- 
sión de cinta. La diferencia 
consiste en el uso de un fi- 
chero índice (en el diagra- 
ma y en el programa se ha 
indicado con el vector IS(«)). 
El ordenado se obtiene es- 
cribiendo en IS(«) los punte- 
ros a los registros en el or- 
den deseado. Para obtener 
una impresión ordenada del 
fichero basta leer secuen- 
cialmente el vector IS(«w) y 
extraer los datos del registro 
correspondiente. 

La subrutina de ordenado 
15500 debe ser parametri- 
zada, permitir una fácil va- 
riación de la clave. 

En dicha figura se han re- 
presentado los parámetros 
principales; en algunas ver- 
siones, las variables secun- 
darias (por ejemplo los índi- 
ces de los bucles) pueden 
tener nombres diferentes de 
los indicados en los diagra- 
mas. Limitar las posibilida- 
des de programación impo- 
niendo los nombres de las 
variables genera fuertes li- 
mitaciones al desarrollo del 
detallado. 

Estos son los parámetros 
usados en el ordenado: 


" Nombre del fichero 

" Número de registros a or- 
denar 

mn Byte de principio del cam- 
po clave 

"m Longitud, en bytes, del 
campo clave 


La primera función a realizar 
es la lectura de todos los re- 
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Esta introducción permite 
ordenar el archivo según 
un campo cualquiera de 

los previstos en las DATA 


En este punto se han 

obtenido los parámetros 

NI = Byte de principio de campo 
clave 

NL = Longitud en byles, 
del campo clave 


A la salida 

de la subrutina 15500, 
los valores de la matriz 
IS(+) son 

transferidos a JS(«) 


Bucle de 
lectura e 
impresión de 
los datos 


ORDENADO 


También en esta subrutina debe 
haber la petición del nombre 
del fichero; como es idéntica 

a las anteriores, en el diagrama 
de flujo no se ha representado 


Antes de realizar la búsqueda 
debe llamarse la 7000 para 
cargar los nombres de los 
campos previstos 

(contenidos en D$(«)) 


El byte de principio de campo 
se obtiene sumando las 
longitudes de los campos 
anteriores (contenidos en L.C(«)) 


La subrutina 15500 prepara 
la matriz IS(w) de los punteros 
en orden de clave 


Gistros del fichero y la ex- 
Iracción del campo clave. El 
bucle empieza por el regis- 
tro 2, puesto que el primero 
es utilizado como directorio 
(en esta aplicación sólo con- 
tiene el número del último re- 


En la llamada debe darse 
= Número de registro 
a ordenar 
NI = Byte de principio 
del campo clave 
NL = Longitud, en bytes, 
del campo clave 
NF$= Nombre del fichero 


gistro escrito; en este dia- ai 
grama se indica con N y, en de datos y extracción 
otros, con MX) a Da: 

si E se 
El campo clave de cada re- da los 


gistro se memoriza en una bytes del campo 
de ordenado 


matriz dimensionada oportu- 
namente, y en ella se reali- Seda drid 
u UN 
zará el ordenado. registro con índice RE 
Al final del bucle de lectura y sólo se realiza en 
extracción del campo clave la versión disco 
(en el diagrama se utiliza la 
matriz AS(+) sólo para tener Extrae del registro los bytes” + 
un nombre al que referirse, AS(RE == 1)= clave | del campo clave 
aunque el software tiene la y los pone en AMRE — 1) 


misma funcionalidad y capa- 
cidad si en los listados se 
llama AD$(x)), se pasa al or- 
denado. 

Inicialmente, en el vector 
IS(«w) se colocan valores nu- 


méricos progresivos a partir doo l e E ce N 
de 1. Esta función también AG (Sw) Led 

se realiza con un bucle que, los valores 1, 2, 3, ...N 

para abreviar, en el diagra- 


ma no se ha indicado. Sigue Condiciones iniciales 
la implantación de los valo- 
res iniciales a los flags y a 
los indicadores. Vale aún la 
observación de que en los 
listados pueden emplearse 
otros nombres. 

El ordenado propiamente di- 
cho se obtiene comparando 
cada elemento del vector 
IS(«) con los otros y colo- A15 IS(1)) Extrae los elementos indicados 
cando al principio «el más ok: y por 1S(1) e IS(J) 
pequeño». La elección se 
obtiene con la instrucción de 
comparación entre las ca- 
denas A1$ y B1$ (téngase 
otra vez en cuenta que estos 
nombres de variables sólo 
sirven para abreviar la des- ca 
cripción de los diagramas, y IS(1) con 1S(4) 
que en los listados pueden 
ser diferentes). El bucle pro- 
sigue hasta que el indicador 
P asume el valor 0. Esta si- 
tuación indica que todos los 
elementos se han ordenado 
y la rutina puede ser aban- 
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donada. P es una variable 
auxiliar, como por ejemplo 
S9(x), utilizada sólo en el in- 
terior de la rutina; por tanto, 
en otros puntos del progra- 
ma puede tener significados 
diferentes. En la salida de la 
rutina, el vector IS(+*) contie- 
ne los punteros a los regis- 
tros del fichero de datos se- 
gún el orden creciente de la 
clave elegida. Naturalmente, 
este mismo ordenado pue- 


de utilizarse para la impre- Comprueba $ para > [ria] 
sión en orden decreciente. controlar el resultado 

Efectivamente, basta con de la comparación anterior 

leer el vector IS(s) partiendo 

del último elemento (IS(N)) 


en lugar del primero. 


Obsérvese que con este 
método, incluso si el ordena- 
do se realiza completamen- 


> Y 


te en la memoria (más ade- 
lante se describirá un orde- 
nado que utiliza el disco de 
manera similar a las técni- 
cas de memoria virtual), se 
POUR mucho EA pon S9 (+,*) es una variable 
cio que si Se tuviese que ¿dara bidimensional auxiliar 
cargar todo el registro. Efec- 59 ll 
tivamente, en memoria sólo 
se carga el campo clave de 
cada registro. 


Búsqueda (subr. 14000). 
La subrutina de búsqueda 


(14000) es notablemente SI 1 
compleja, puesto que prevé 
la posibilidad de utilizar dife- 


rentes campos como clave 
de selección. La lógica es la 
siguiente: 


1 / Con la máscara vídeo se 
presentan los campos 
previstos en el fichero 

2/El usuario introduce en 


los campos deseados el A Cremm) 
valor a buscar. En este 
caso, el registro sólo se En la salida, 1S(e) 

4 pe pr fe contiene los punteros para 
selecciona si satisface si obtener los datos en orden 


multáneamente todas las 
condiciones (los varios 
campos se consideran 
como ligados por condi- 
ciones AND) 

3/Con un bucle sobre to- 
dos los campos activa- 


Terminado 
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dos como selectores, la 
subrutina comprueba el 
contenido de los regis- 
tros del fichero y sólo ex- 
trae los que satisfacen 
todas las condiciones 
impuestas. 


Para tener la máxima versa- 
tilidad, esta rutina está es- 
tructurada de manera com- 
pletamente parametrizada. 
La introducción de las cla- 
ves de búsqueda se obtiene 
con la data entry; así pue- 
den utilizarse uno o más 
campos entre los previstos 
sin ninguna limitación. 

En la figura de al lado y en la 
de la página siguiente se ha 
representado el diagrama 
de la subrutina; la primera 
operación consiste en pre- 
sentar la máscara vídeo pa- 
ra la introducción de los va- 
lores de comparación. 

La selección puede pedirse 
en Cualquier número de 
campos: el dato será pre- 
sentado sólo si satisface las 
condiciones impuestas. 
Como a priori no se conoce 
el número de campos pedi- 
dos en la selección, no es 
posible escribir las necesa- 
rias instrucciones IF...AND... 
etc., y éste es el motivo por 
el que debe desarrollarse 
una rutina recurrente que 
analice la máscara vídeo y 
active la comparación de 
cada campo no nulo. 

La última función es particu- 
larmente compleja, puesto 
que debe analizar un cam- 
po cada vez, memorizando 
todos los registros que satis- 
facen otra condición; por 
tanto, se pasa al campo si- 
guiente y se borran los re- 
gistros seleccionados la vez 
anterior que no satisfacen la 
condición actual. 

El procedimiento se repite 
tantas veces como campos 
hay indicados como ele- 
mentos de selección. 

Este resultado se obtiene 


En el diagrama de flujo 
se ha omitido la lectura 
del registro 1 para la 
determinación del número 
de registros a controlar 


(MX), puesto que es idéntica 


a la que hay en todas las 
demás subrutinas 


A la impresora 

7 7 
A NO 
O—* 


Salva 1S (+) 
en JS (+) con 
un bucle de 
1 a MX 


BUSQUEDA 


a la introducción para definir 
el campo utilizado como 
elemento de selección. De 


En esta subrutina 
se utiliza 
una estructura análoga 


pil SY 


esta manera pueden 
utilizarse todos los 
campos de la máscara, 
incluso combinados 


Extrae el primer campo 


El campo no ha 
Ci, y seleccionado 


ud 


O 


Preparación de 

los parámetros para 

la búsqueda. 

La lectura del registro 1 
para obtener MX 
(número de registros 
en el fichero) 

no se ha indicado 


- La subrutina de selección 
restituye en 1S (+) los 
números de los registros 
que satisfacen la 
condición (ver diagrama 
de flujo de detalle) 


Principio del bucle en |S (.) 
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utilizando dos vectores 
(IS(*)) y (US(x+)). A uno se 
transfieren todos los regis- 
tros que satisfacen la condi- 
ción (de igualdad) con el 
"campo actual, y al otro los 
correspondientes al campo 
anterior. Comparando los 
dos vectores y extrayendo 
sólo los números de los re- 
gistros comunes se obtie- 
nen los punteros a los regis- 
tros que satisfacen ambas 
condiciones. 

Al final el vector (JS(+)) re- 
sultante se utiliza como pun- 
tero final a los registros que 
deben imprimirse. 


Selección (subr. 6900). 
El procedimiento sigue la ló- 
gica ya examinada para el 
ordenado. Mediante los dos 
parámetros NI y NL se defi- 
ne el campo a controlar, y 
además de estos, en la va- 
riable CO$ debe implantar- 
se el valor de comparación, 
y en MD elmodo. 

Los valores previstos de MD 
son los siguientes: 


1 = La búsqueda tiene sali- 
da positiva si los datos 
del byte NI al NI + 
NL=1 contienen valo- 
res iguales a CO$ 

2 = Expresa la condición 
«dato mayor» de CO$ 

3 = Expresa la condición 
«dato menor» de CO$ 


Naturalmente, las condicio- 
nes 2 y 3 pueden pedirse 
sólo si los datos y la variable 
COf$ contienen valores nu- 
méricos. En esta aplicación 
sólo se emplea modo = 1. 
En la figura de la página si- 
guiente se ha representado 
el diagrama de principio. 
La subrutina, como se ha 
presentado en el diagrama, 
tiene un empleo generaliza- 
do y debe adaptarse a cada 
necesidad. En esta aplica- 
ción, ya compleja por otros 
motivos, sólo se ha incluido 
la condición de igualdad. 
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li Em 


El registro IS(L) satisface 
la condición 


siguiente 
campo 


Principio 
del bucle 
de impresión 


En las versiones en cinta 
todos los datos están 
en la memoria 


SUBRUTINA DE SELECCION 


Esta versión utiliza los ficheros 
del registro 2. El primero está 
reservado para memorizar 

el último record ocupado 


(+) 


En la entrada debe transferirse 

CO$ = Elemento de comparación 

NI. = Byte de principio de comparación 
NL = Byte de fin de comparación 

MX  = Longitud del fichero (parte útil) 
NF$ = Nombre del fichero 


Transfiere a A$ el contenido 
del registro de datos limitándose 
a los bytes utilizados en la selección 


NB = VAL(CO$S) está 
al principio de la rutina 
bajo condición MD = 2 0 MD = 3 


El índice 11 se pone igual 
a 1 antes del bucle en RE 
y se incrementa en 1 
dentro del bucle 


En la salida, la matriz 1S(+w) 
contiene los números de registros 
seleccionados y, transferida a 

JS (+), se utilizará como 

puntero en la fase de impresión 


La rutina se presenta en la lorma más general de comparación también con valores numéricos; esta aplicación sólo utiliza el 


caso MD = 1, o sea la comprobación de la condición de igualdad. 
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CAPA ON oa O 
Los listados / Versión Apple Il 


140 
150 
160 
170 


180 


190 


227 


230 


240 


1900 


REM EL BANCO DE DATOS DOMESTICO 
REM LISTIN — DIRECCIONES 
REM VERSION APPLE 2 


REM INICIALIZACIONES 

DIM TF (15),TP(20),LC (20) ,ND(20),€ 
X (20) ,CY (20) ,DX (20) ,DY (20),B$(20) 
+,D3(20),V0$(10),HE$(8) 

BP$ = CHR$ (7): 

N9s = "4: 

AS$ = CHR$ (95):2 

POS =".": 

BLé = "o": 

DS = CHR$ (4): 

US$ = CHR$ (13)3 

ZE% = "0": 

GIUs = " "z 

Sus = "/" 

Bs = ” “ 

BAS = BS + BS + B$ + B$: 

BS -"" 

HES = "AYUDA.CTRL - Y" 

HES(1) = "CTRL Y.AYUDA(*ESPACIO” 
PARA CONTINUAR) —" 

HE$(2) = "ESC. ANULA TODA LA INTR 
ODUCCION al 

HE$(3) = "RETURN. ALINEA Y CONVAL. 
IDA INTRODUCCION " 

HES$(4) = "CTRL I, PERMITE LA INSE 
RCION DE ESPACIOS" 

HE$(5) = "CTRL D. BORRA UN CARACT 
ER “ 

HES(6) = "CTRL R. VUELVE AL MENU 
PRINCIPAL Di 

HES(7) = “CTRL W,A,S,Z.MUEVEN EN 
LAS 4 DIRECCIONES" 

HE$(9) = "CTRL E. INTRODUCCION EN 
EL DISCO ho 

TEXT : 

HOME 3 

INVERSE : 

PRINT "E. 6. S." + LEFTS (BA$,1 
0) + "EDICIONES FORUM S.A. "sz 
NORMAL: 

MP$ = "BANCO DE DATOS DOMESTICO" 
DIM 18%(100),J5%(100),59%(100,2), 
A$ (100) 

YT = 3: . 

TIS = MPS: 

GOSUB 11200 

Y =2: 

X= 4d 

INVERSE : 

GOSUB 11000: 

PRINT " “2 

X = 40: 

GOSUB 11000; 

PRINT "5: 

Y =3: 

X= 1d: 

GOSUB 11000: 

PRINT“ “z 

X =:40: 

GOSUB 11000: 

PRINT " "ss 

Y = 4: 

X=t1: 

GOSUB 11000: 

PRINT " "s 

X = 40: 

GOSUB 11000: 

PRINT " "us 


G0SUB 11000: 
PRINT LEFTS (BA$,40)312 


260 


280 


290 


390 


395 


397 


400 


410 


VOS (MA) = "FIN DE TAREA" 
FOR I = 1 70 15: 
READ TF(1): 
NEXT 1 
YT" 12: 
TIS = "CUANTAS UNIDADES DE DISCO 
HAY 2 (1/2) "2 
GO0SUB 11200 
GET A$: 
IF AS < "1" OR AS > "2" THEN 270 
DR$ = Ab: 
PRINT DR$ 
HOME: 
YT = 12: 
TIS5 = "INTRODUCIR DISCO DATOS EN 
LA UNIDAD " + DR$: 
sosuB 11200 
GOSUB 11100 
L =.02 
FOR I = 1 TO NW +1 
L1 = LEN (VOS(1)):2 
IF Li >LTHENL =L1 
NEXT 1 
L=L+5 
XC = (42 -L) /2 
YC = (25 - (NV £ 2 + 1)) 7/2 
GOSUB 1300 
IF OPZ = (MA) THEN FOR I = 1 
TO 1000: 
NEXT 1: 
TEXT : 
END 
LM = 0PZ - 1: 
ON OPZ GOSUB 12000,8000,53000, 1500 
0, 14000 
FOR 1 = 1 TO 100:* 
YSZ(1) = 0: 
IS7(1) = Oz 
ASID = ": 
NEXT 1 
FOR 1 = 1 TO 102 
S97. (1,1) = O: 
S9%(1,2) = 0: 
NEXT 1 
S0SuB 6700: 
1F IM = 1 THEN PRINT D$: 
PRINT DS; "PRHO": 
PRINT DS: 
mM= 0 
Y = 3 
X= 1d: 
S0SUB 11000: 
INVERSE : 
PRINT— LEFTS (BA$,40)3: 
NORMAL. 
GOTO 370 
RE ao 
REMO MENU PRINCIPAL 
RE ano 


FOR 1 = 1 TO MA 
Y=142+YC: 
X= XC: 
GO0SUB 11000 
IE +1 
1F 11 = (MA) THEN 11 = O 
PRINT 113"- ";Y0s(D) 


NEXT 

1=1 

XS = XC - 2: 
SP = XC - XS 
Y=1t20+ YC: 
X= 9: 

GOSUB 11000 
PRINT *=>"3 
GET 0PZ$: 


OPZ = VAL (0P2$): 

IF. 0PZ7$ = US$ THEN 1530 

IF OPZ > NV THEN 1450 

IF 0PZ$ = 27E$ THEN X = XS: 

GOSUB 11000: 

PRINT  SFC( SP): 

I = MA: 

GOTO 1420 

IF. ASC (0PZ$) > 48 AND ASC (0PZ 


2230 


2240 
2250 
2260 
2270 


2280 
2290 


2300 
2310 


2320 
2330 


2340 
2350 


2360 


2370 


2380 


2390 


2400 
2410 
2420 


2430 


$) < 58 THEN X = XS: 
GOSUB 11000: 

PRINT— SPC( SP): 

I = 0PZ: 

GOTO 1420 

1F 087% < > GIUS THEN 1450 
X = XS: 

GOSUB 11000: 

PRINT— SPC( SP); 
l=1I +1: 

1F 1 > (MA) THEN 1410 
GOTO 1420 

X= XC2 
Y=112+YC 

1 = 1: 

IF 1 > NY THEN 11 = O 
PRINT IIj"= "js 
INVERSE 

PRINT VOS (CI) 


HOME 
REM LINEAS RESERVADAS 
SP = 33 - LEN (VO$(0P2)) 
SPg = "" 
IF SP = 0 THEN 2100 
FOR Y = 1 TO SP: 

SP4 = SPS + BL: 


LP = LEN (PROG$) 

SI» INT ((40 - LP) / 2): 

DE = 40 - LP - Sl 

S16 2 

DES = "" 

FOR Y = 1 TO SI 
SIS = SIS + BLG 

NEXT 

FOR J = 1 TO DE 
DES = DES + BLS$ 

NEXT 

YT =5: 

TIS « HES: 

INVERSE : 

GOSUB 11200: 

NORMAL. 

Y =7: 

X md: 

GO0SUB 11000: 

PRINT " VOZ "¡0PZ 

REM — MASCARA 

FOR J = 1 TO NUC 
As. 
X = DX(J)3 
Y = DY(J): 
GOSUB 11000: 


PRINT D$(J) 

NORMAL. 

IF TP) < > 5 AND TP(J) 

< > 4 THEN 2330 

X = CX(J): 

Y = CY): 

GOSUB 11000 

PRINT B$(J) 

6070 2500 

Ni = LC(J): 

N2 = ND(J): 

1F TP(J) = 1 OR TP(J) =2 

THEN CS = NS$: 

GOTO 2350 

C$ = AS$ 

FOR 1 = 1 TON1 - N2 - 1: 
Ab = AS + CS: 

NEXT 1 

IF N2 = 0 THEN A$ = A$ + C$: 

GOTO 2390 

Ab = AS + PDS 

FOR 1 = 1 TO N2: 
AS = As + ZES: 

NEXT 1 

X= CX(J): 

Y = CY(J): 

GOSUB 11000 

PRINT AS 

BSD = 

FOR K = 1 TO Ni - N2- 1 
B$(J) = B$(J) + BL$ 


3170 


3180 


3190 


NEXT K 
IF M2 = O THEN B$(J) = B$(J) 
+ BL$: 
G60TO 2500 
B$(J) = B$(J) + PDS 
FOR K = 1 TO N2 
BS(J) = BS(J) +.BLS 


NC = y: 

Xx = CX(NC); 

Y = CY (NC) 

cc = 1 

GOSUB 3240 

IF FS = O THEN 3100 

IF FS > 4 THEN 3210 

GOTO 3120 

J=J+di: 

IF J > NUC THEN 3030 
GOTO 3040 

ON FS GOTO 3130,31530,3170,3190 
1F J > 1 THENJ =J- 1d: 
GOTO 3040 

PRINT BP$;: 

FS = 03 

J = NUC: 

GOTO 3040 

1F J < NUC THEN J =J +41: 
GOTO 3040 

PRINT BP$;: 

FS = 0: 

GOTO 3030 

IF CC < LC(J) THEN SO = 1: 
CC = CC + t: 

X=X +13 

GOSUB 11000: 

GOTO 3060 

PRINT BPG: 

FS = 03 

GOTO 3100 

IF CC > 1 THEN SO - 13 
00 = 00. tz 

X= Xx - 13 

GOSUB 11000: 

GOTO 3060 

PRINT BPS;: 

FS = 0: 

GOTO 3040 

IF FS > 8 THEN FS = 0: 
GOTO 3060 

1F FS = 8 THEN FS = 0: 
GOTO 3100 

RETURN 
AAA 
REM LECTURA DE UN CAMPO 


FS =0 
IF TP(NC) = 4 THEN RETURN 
IF TP(NC) = 2 THEN GOSUB 9000: 
RETURN 
IF MIDS (B$(NC),CC,1) = PD$ 
THEN X = X + SO: 
CC = CC + So 
GOSUB 11000 
GET A5: 
IF AS = "" THEN 3320 
CA = ASC (A$): 
IF CA > 31 THEN 3380 
FOR 1 = 1 70 15 
1F TF(1) = (CA) THEN FS 
= 1: 
GOSUB 3630: 
RETURN 
NEXT 1 
GOTO 3320 
IF TP(NC) < > 1 THEN 3440 
IF CA = 45 OR CA = 46 OR (CA 
> = 48 ANDCA< = 57) THEN 341 
o 
PRINT BP%;: 
GOTO 3320 
IF CA< > 46 THEN 3440 
60SUB 4270 
1F SWHP = 1 THEN 3400 
So = 1: 
G0SUB 3520 
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3900 
3910 
3920 


3940 
3950 


3970 
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1F CC = LC(NC) THEN RETURN 
CC = CC + t: 


X=X +1: 
GOTO 3300 
RE 


REM TRANSFERENCIA AL. BUFFER 
A 
IF CC = 1 THEN SNS = "": 

GOTO 3570 

SNS = LEFTS (B$(NC),CC — 1) 
1F CC = LC(NC) THEN DSS = ""; 
GOTO 3590 

N = LC(NC) - EC; 

DS$ = RIGHTS (BS(NC),N) 
BS$(NC) = SNS + AS + DS$ 
PRINT Ab: 

RETURN 


IF FS > = 5 THEN 3690 

IF FS = 5 AND TP(NC) = 1 THEN 
G0SUB 4080 

RETURN 

IF FS = 9 THEN GOSUB 13000: 
RETURN 

IF FS = 8 THEN GOSUB 4080: 

RETURN 

IF FS < 8 THEN RETURN 

ON FS — 9 GOSUB 3740,3910 


IF CC = LCINC) THEN PRINT BP$: 
RETURN 

IF CC = 1 THEN SNS = ""s 
GOTO 3800 

SNá = LEFTS (BS(NC),CC - 1) 
N = LC(NC) - CC + 12 

DS$ = RIGHTS (BS(NC),N) 
C$ = BL$ 

AS = SNS + C$ + DS$ 

BS (NC) = LEFTS (A$,LC(NC)) 
XX =X: 

YY =yY 

X = CXINC): 

Y = CY INC): 

GOSUB 11000 

X= XX: 

Y = YY 

PRINT BS (NC): 

s0. -1 

1F RIGHTS (B$(NC),1) = PDS 
“THEN 3780 3 


IF TP(NC) < > 1 THEN 3960 
IF. MIDS (B$(NC),2,1) = PDS 
AND CC = 1 THEN RETURN 

IF CC < 1 THEN PRINT BP$: 
RETURN 

IF CC = LC(NC) THEN DS$ = ""z 
GOTO 4000 

N = LC(NC) - CCz 

DS$ = RIGHTS (BS(NC),N) 

1F CC = 1 THEN SNS = ""; 
GOTO 4010 

SN$ = LEFTS (BS(NC),CC - 1) 
IF TP(NC) = 1 OR TP(NC) = 2 


BS(NC) = SN$ + DS$ + C$ 
XX =X: 

YY =Y 

X = CX(NC)»: 

Y = CY(NC)2 

G0SUB 11000 

X= XX: 

Y = YY 

PRINT BS(NC): 

SO = 1: 

RETURN 

REM AS 

REM ALINEADOS 
RE 

IF LC(NC) = 1 THEN RETURN 
Ni = LC(NC) = CC +4 
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1F CC = 1 THEN BS(NC) = "": 


GOTO 4150 


BS(NC) = LEFTS (BS(NC),CC: 


= 1) 
IF TP(NC) = 1 OR TP(NC) = 2 
THEN 4200 


FOR I= 1 TON 


BS (NC) = BS1NC) + BLS 


FOR 1 = 1 TO N1 

BSINC) = BL$ + BS(NC) 
NEXT 1 E 
IF RIGHTS (B$(NC),1) = PDS 
THEN B$(NC) = BL$ + LEFTS (BS(N 
C),LC(NC) - 1) 
X= CX(NC)= 
Y = CY (NC) 
GOSUB 11000 
PRINT BS(NC)5 
RETURN 
REM can 
REM CTRL.PUNTO 
REM .. 


sup = 0 
IF CC = 1 OR CC = LO(NC) THEN SWP 
=1; 
RETURN 
FOR 1 = 1 TO LC (NC) 
IF MIDS (BS(NC),1,1) = PDS 
THEN 1 = LCINC): 
SUP == 1: 


REM VARIACION LISTIN 

REM A 

NFS = "LIS": 

LR = 79: 

GO0SUB 000 

NR = 1: 

GO0SUB 6200 

RE = VAL (AA$): 

HOME 

YT = 12: 

TIS = "CODIGO (1/" + STR$ (RE 
- 1) + " "0" PARA SALIR)": 
GOSUB 11200 

INPUT NR$: 

IF NR$ = "O" THEN RETURN 

NR = VAL (NR$) + 1: 

IF NR < 2 OR NR > RE THEN 5070 
LM = 1: 

GOSUB 7000: 


FOR I = 1 TO 8: 
TP(1) = 4: 
NEXT 1 
GOSuB 8500 
GOSUB 2000 
GOSUB 7000: 
G0SUB 3000 
IF FS = 7 THEN RETURN 
IF FS = 6 THEN 5050 


PRINT DS 

PRINT D$;"OPEN"¿NFS + ",D" 
+ DRS;",LUGLR + 2 

PRINT DS 


REM LECTURA REGISTRO 

REN... —_——— rr 
PRINT D$ 

PRINT DS; "READ"¿NF$;",R“¿NR 
INPUT ARAS 


REM ESCRITURA REGISTRO 
REM A e e e e 
PRINT DS 

PRINT DS; "MRITE"¿NFS;",R"¿NR 
PRINT CHR$ (34) + ARS 
PRINT DS 

RETURN 


7090 


7100 
7110 
7120 


7130 
7140 


7150 


8050 


REMO 

REM CIERRA FICHERO 
REM ————— 
PRINT DS 


PRINT DS$;"CLOSE"5NF$ 
PRINT DS 


- REM CIERRA TODOS LOS FICHEROS 
RE 


NFS = "LIS": 


1 =1 


ISZ(RE) = 0 


Ab = MIDS (AAS,NI,NL) 
1F A$5< > COS THEN 6970 


1=11+1 
19%(11) = RE 
NEXT RE 


READ NY 

FOR 1 = 1 TO NV + 15: 
READ DAS: 

NEXT 1 

LYv=0 


IF LM = O THEN READ NUC: 


FOR 1 = 1 TONY - 12 
READ DA: 

NEXT I: 

GOTO 7150 

FOR 1 = 1 TO LM: 
READ DA: 


LV = LV + DA + DA * ND: 


NEXT 1 

READ NUC 

1F NUC = O THEN 7190 

IF 1 < NY THEN READ DA: 

l= 1041: 

60TO 7120 

IF LV = O THEN 7150 

FOR 1 = 1 TO LV: 
READ DAS: 

NEXT 1: 

REM LEE EN VACIO 


FOR 1 = 1 TO NUC: 
READ DS(I): 
NEXT 1: 
REM LEE DESCRIPCIONES 


FOR 1 = 1 TO NUC 


READ TP(1),LC(1),ND(1),DX(1),D 


Y(D),CX(1),CY (1) 
NEXT 1 


REM INTRODUCCION 
REA: earn . 
NFS = "LIS": 

LR = 79: 

G0SUB 6000 


IF FS = 7 THEN RETURN 
1F FS = 6 THEN 8040 
NR = 1: 

AAS = STR$ (RE + 1): 


11040 
11100 
11110 
11120 
11130 


B$(1) = LEFTS (AA$,15) 
B$(2) = MIDS (AA$,16,10) 
BS(3) = MIDS (AA$,26,20) 
B$(4) = MIDS (A$,46,15) 
BS(5) = MIDS (AA$,61,2) 
BS(6) = MIDS (AA$,63,5) 
BS(7) = MIDS (ARS, 689, 4) 
BS(8) = MIDS (AA$,72,8) 
RETURN 
RE A AA A É 
REM ESCRITURA LISTIN 
REM — 
AA 
FOR JR = 1 T0 8: 
ARS = ARS + BSIIR): 
NEXT JR 
GOSUB 6400 
RETURN 
REM — 
REM CALCULOS 
REM 
REM ----- 
REM DATOS 
REM —-- 
DATA "LISTIN TELEFONICO" 
DATA 5 
DATA "GENERACION SISTEMA", "INTROD 
UCCION", "VARIACION", "ORDENADO", "B 
USQUEDA" 
DATA 23,26,19,1,5,27,18,13,25,9,4 


,9,0,0,0 


DATA 0,8,0,0,0 
DATA "APELLIDO", "NOMBRE", “DIRECCI 
ON", "CIUDAD", "PROVINCIA", "D.P."," 


PREFIJO", 
DATA 3,15 
DATA 3,10 
DATA 3,20. 
DATA 3,15. 


"TELEFONO" 

,0,2,10,13,10 
0,2,12,13,12 
,0,2,14,13,14 
,0,2,16,13, 15 


DATA 3,2,0,2,18,13,18 
DATA 1,5,0,18,18,25,18 
DATA 1,4,0,2,20,13,20 
DATA 1,8,0,2,22,13,22 
RE 
REM POSICIONA CURSOR 


REA 


VTAB Y y 
RETURN 


REM 
REM ESPERA CARACTER 
REM —— 


HTAB 12: 
VTAB 23: 
FLASH : 


FRINT "PULSAR UNA TECLA "; 


REM PRESENTA TITULO 


REA 


TIS = LEFTS (TIS, 40) 
XT = (42 - LEN (TIS)) / 2 


HTAB XT: 
VTAB YT 


PRINT TIS;+ 


REM GENERACION SISTEMA 


REM nm 


HOME 
YT = 12; 


TI$S = "SEGURO? (S/N)": 
G0SUB 11200 


GET AS: 
IF AS < 


> "S" AND AGS X > "N" 


THEN 12040 


IF AS < 
HOME 
YT = 12: 


> "S" THEN RETURN 


TI% = "NUMERO DE REGISTROS (MAX 1 


00m”; 


GOSUB 11200 


INPUT RR$ 
RR = VAL 
IF RR<A 


(RAS): 
OR RR > 100 THEN 12080 


NFS = "LIS": 


LR = 79 


1903 


12115 


14070 


14110 


14120 
14130 
14140 
14150 
14160 


14170 
14180 
14195 
14190 


1904 


G0SUB 6000 

HOME : 

YT = 14: 

TI$ = "GENERACION EN CURSO": 
FLASH 2 

GOSUB 11200: 

NORMAL. 

NR = la 

ARAS = “1% 

GOSUB 6400 

AAS = BAS + LEFTS (BAS, 19) 
FOR NR = 2 TO RR + 1 


PRINT HES(K)5 

B= PEEK ( - 16384) 
FOKE - 16368,0 

IF B < 128 THEN 13080 
IF B< > 160 THEN 13080 
K=Ko+ ds 

1F K > 8 THEN 13140 
GOTO 13060 

Y = 5 

X= 1: 

GOSUB 11000: 

PRINT — LEFT$ (BAS,40); 
YT =.53 

TIS = HES: 

GOSuB 11200 

NORMAL. 

X= XX: 

Y = YY 

RETURN 

REM: mm" 

REM BUSQUEDA 

REM: eos 

NFS = "LIS": 


IF FS = ó THEN 14030 
1F FS = 7 THEN RETURN 
HOME : 
YTi= 12: 
TIS = "ESPERE ,POR FAVOR": 
GO0SUB 11200 
Q=0: 
WM = 1: 
NR = 1: 
G0SUB 6200: 
MX = VAL (AA$) 
1F TP(W) > 2 AND ( LEFTS (B$(W),1 
) = "-" OR LEFTS (B$(W),1) 
m1" ") THEN 14200 
IF TP(W) = 1 AND RIGHTS (B$(W),1 
) = " " THEN 14200 
COS = BS(W): 
MD = 12 
NI = 0: 
NL =0 
FOR D = 1 TO NUC 
IF D = W THEN 14160 
NI = NI + LC(D) 
NEXT D 
NL = LC(D): 
NI = NI +1 
GOSUB 6900 
IF 0< >0 THEN 14220 
D=1 
FOR 1 = 1 TO MX: 
3IS%(1) = 15%(1): 
NEXT 1 


14200 
14210 


14220 
14230 
14240 
14250 


14260 
14270 
14280 


142590 
14300 


14310 
14320 


15060 
15070 


15080 


15090 
15100 
15110 


15120 
*15130 


IF hH = NUC THEN 14290 
M=W+ dt: 
GOTO 14080 
K=2 
L=2 
IF 3S%(K) = ISZ(L) THEN 14270 
IF L< >MX THEN L=L +4: 
GOTO 14240 
IS/(K) = 0 
IF K = MX THEN 14200 
K=K+d: 
GOTO 14230 
HOME 
REM IMPRESORA (== 
HOME 
YT = 12: 
TIS = “EN VIDEO O IMPRESORA (V/1) 
2; 
GOSUB 11200 
GET AS: 
IF AB< > "I" ANDAS< > "Y" 
THEN 14320 
IF AS = "I" THEN IM = 1 
HOME 
1F IM = 1 THEN PRINT DS: 
PRINT DS; "PROL": 
PRINT DS 
YT =7: 
TIS = "IMPRESION CON BUSQUEDA" 
GOSUB 11200: 
NORMAL. 
POKE 34,7 
FOR 1 = 1 TO MX 
IF JS%(1) = O THEN 14530 
NR = JSZ(1)5 
GOSuB 83500 
X= di 
NA Ye 
GOSUB 11000: 
PRINY : 


PRINT "APELLIDO"; TAB( 15)5B3( 
PRINT "NOMBRE"; TAB( 15)5B8(2) 
PRINT "DIRECCION. "; TAB( 15)3B 
PRINT "CIUDAD. "z TAB( 15);B9(4 
PRINT "PROVINCIA. "; TAB( 15);B 


PRINT "D.P."; TAB( 15):B5(6) 
PRINT "PREFIJO."; TAB( 1515864 


PRINT "TELEFONO: 
%; TAB( 15)3B$(8) 
IF IM< > 1 THEN GOSUB 11100 


NES = "LIS": 
LR = 79 
GOSUB 4000 
NR = 1: 
G0SUB 6200: 
N = VAL (AA$) 
LM = 1; 
GOSUB 7000 
HOME 
YT_= 7 
TI$ = "INTRODUCIR EL NUMERO DE CA 
MPO": 
GOSUB 11200 
YT = 8: 
TIS = "A UTILIZAR PARA EL ORDENAD 
0"; 
GOSUB 11200 
X= 1: 
FOR 1 = 1 TO NUE 
Y = 10 + 1: 
GOSUB 11060 
PRINT 13". "3D$(I) 
NEXT 1 
YT=Y +2: 
TIS = "CUAL ? "z 


155140 GET As: TON: 
5 dE lc) = Ln 


THEN 15130 SiS 
15150 pl vAL (ass e br CL AA TS IET PANA VIBE 
1 
PO 2 VRT ITV E AA PA 
NF = 0: n ds 
AS RA A AA ITA 


a 


FOR 1 = 1 TONC 1 Als = 1): 
ISI EAT E 
15180 NEXT 1 15600 IF A1$ <= Bl% THEN 
15190 NI NILO =D . OT = 18% 

NF = NI + LC(NC) — de ISZ(1) = 18%(J)2 


E ANRECINOA IR A IEA ETE TIN E A 
15200 GOSUB 15500 
15210 FOR 1 =2 TON: : 15620 IF S HEN 1 > 

ISZ(I - 1) = ISZ(1) + d: GOTO 15640 
A A A A AA 
ON E ES Sl y 159 


15540 NR = REz 15700 E = SP, 103 . 


MCARTE 
AS(RE — 1) = MIDS (AAS,NI,NL) PRPp-1 
ASPERGER S RENA 7 RITA ASISTAN TD PATRIA 


RELACION DE VARIABLES - VERSION APPLE 


= símbolo que identifica los campos ND(+) = número de decimales del campo 
alfanuméricos en la Data Entry de introducción 

= matriz de los buffers (1 por campo LC(«) = longitud de los campos de introd. 
de introducción) NUuC = número de campos en la máscara 

= blank sencilla 

= señal de error NV = número voces menú principal 

= código ASCII del carácter introdu-  OPZ,OPZ$ = flag de salida del menú principal 
cido por teclado en la Data Entry. TF(«) = teclas funcionales 

= contador de caracteres en la Data VOS$(x) = voces del menú 
Entry. 15% (++) = punteros a los registros identifica- 

= coordenada horizontal de princi- dos en la selección (sub. 6900) 
pio del campo de introducción NI 

= coordenada vertical del campo de NL 
introducción 

= matriz de las descripciones en la 
máscara vídeo NR = registro actual 

AAS$ = cadena que contiene el registro 
escrito o leído en disco 

= título secundario 


= bytes utilizados para la extracción 
del registro leído por la cadena de 
comparación 


= coordenadas de las descripcio- 
nes en la máscara vídeo Tus 

= matriz de las cadenas de ayuda 

= usada para lectura en vacío de datos 


JS%(+) = matriz de los punteros a los regis- 
tros en búsqueda (sub. 14000) 
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Menú principal. En la foto de al lado puede verse el 
menú principal del procedimiento en la versión MSX. El 
usuario puede posicionar el indicador en la función 
deseada mediante la barra espaciadora (que lo 
desplaza hacia abajo) o pulsando directamente el 
número de la voz. Una vez realizada la elección, basta 
con pulsar la tecla RETURN para activar la función. 

La voz Ordenado permite reestructurar el fichero de 
datos según un orden alfabético que también puede ser 
permanente si está grabado en soporte magnético. 

Esta función puede activarse en cualquier campo de los 
previstos (Nombre, Apellido, Calle, Ciudad, Provincia, 
DP, Prefijo, Teléfono). 


En esta foto se han presentado los mensajes que el 
programa presenta al usuario antes de las operaciones 
de escritura o de lectura de los datos. Las funciones de 
espera son necesarias para permitir el reposicionado 
del soporte magnético (cassette) en el que está escrito 
el fichero (secuencial), por lo que es leído o escrito 
nuevamente a partir del 1.* registro. 


Búsqueda. El usuario ha activado la voz 5 (Búsqueda). 
Esta función permite identificar, entre los grabados, uno 
o más grupos de datos que contienen los parámetros 
de selección introducidos a través de la máscara vídeo. 
En este caso, el usuario ha pedido todas las 
grabaciones que contienen como ciudad "MADRID". 
La función de búsqueda puede realizarse en más 
campos simultáneamente. Por ejemplo, podrían 
buscarse todos los GUILLEN residentes en MADRID 
introduciendo el nombre de la ciudad y todos los SALA 
que viven en BARCELONA que tienen un determinado 
número de teléfono. 


La función de búsqueda ha terminado, y en la pantalla 
(porque no se ha pedido la impresión de los datos) se 
presentan en sucesión todos los datos que contienen 
los parámetros de selección. 

El programa prevé la espera de una tecla pulsada para 
permitir que el usuario lea los datos. 
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voz 2 


APELLIDO 
NOMBRE 
DIRECCION 
CIUDAD 
PROVINCIA 
PREFIJO 
TELEFONO 


APELLIDO 
NOMBRE 
DIRECCION 
CIUDAD 
PROVINCIA 
PREFIJO 
TELEFONO 


ON SISTEMA 
INTRODUCCION 
VARIACION 
ORDENADO 
BUSQUEDA 
FIN DE TAREA 


SOLE M 

JUAN 
VALENCIA 268 
BARCELONA 

B DP: 


123 


12345678 


ESION CON BU 


"ARISTA ISA 
Los listados / Versión MSX 


10 REM -——— > 
13 as, EL ANO DE DATOS pOESTIDO | 


22 DEFINT A-S,U-W - 
,2 


27 W1%="PREPARE EL GRABADOR APRETANDO":W26="PLAY Y RECORD":W30="REBOBINE LA ero 
29 W4$="ESPERAR":WS$="ESTA PREPARADO? (pulse S para continuar Pulse N para volv 
35 DIM DHS(2),TL$(4),S0$(12),T1(12),TS(12),N(22) be 

40 DIM TF(15),TP(20),LC(20),ND(20) ¿CX (20), CY (20), DX (20), D 

50 DIM ¿Bs:20) be (20) dos (10) 0648) ,F18 (2), A0$(80),9 (or 1500, S9 180,2) 
52 DHS(0)="FECHAS NO CUMPLIDAS": DHS(1)="FECHAS CUMPL 

55 KEY OFF:KEY 1,CHR$(15):KEY 2,CHR$ (16) :KEY. O 0 PrP5D 
2 REM CONSTANTES 


65 A1=1:42=31:BP8="D4L3ODFB":NS6="=":AS$=CHRL(AS):PDS=". ":BLE=" MERGE MP] MENU [res 
70 FS=CHR$ (1) +CHR$(87) 


72 Fié="": FOR 1=0 TO 39:F18*F18+F8:NEXT 1 A A AAA A 
75 O6=STRING$(39, AS$) 

PS A A Y A e 
90 X0=5: YO=1:XC=3: YC=3:XS=1:LH=8:L1=79:ND=7 

100 USS$=CHR$(13) : ZE8=CHR$ (48) : GIU$=CHR$ (32) A _—— 


110 HES="CTRL Y (AYUDA)" 
145 HI$="E.G.5. Ediciones Forum, S.A." a 


A AAA A 
s 

¿dSO/REBTORED > a E AAA A 

190 READ PROG 

SILA 

160 FOR I=1 TO AVIPEAD ¿VOS CI) ¿NEXT 

170 MA=NYe1 pl an A AA A 

190 VOSIMA)="Fin de tarea" 

190 FOR I=1 TO 15 E 3  _ __—_ ==) 

200 READ TF(I) 

MONETA AA A A 

220 REM MAIN 

230 GOSUB 13002REM MENU. 7 A A A _— A 

240 IF OPZ=MA THEN FOR I=1 TO 1000: NEXT:CLO: END 

pro yr og pPZeS "ORDAZ 54: 0R' 0P793 THEN: BOBUB 7000" O _ TAS A AAA 
ON OPZ GOSUB 12000, 8000, 8500, 15000, 14000, 16000 


EEN pi AA AAA A 
LO re A A EE AS 
1320 REN. anios 

E AAA a 


1335 X=1:Y=0:60SUB 11000:PRINT "———" 

Li X=X0+7:Y=0; GOSUB 11000+PRINT A 11000: PRINT MP4: Y=Y+1:X=13GOSUB 1LO00PRIN. 
“;¿PRINT SPACES (3); :PRINT PROG$+DE 

paa. A A A 

1350 FOR 1 = MI TO 


1380 VeTISTAYO:NNCGOSUB 11000 - - A === AA A) 
1370 11=1 

1380 1F Tl= (MA) THEN 11=0 A 
1390 PRINT 117"-";V0$(1) 

TOGO NETA IAE 2 O ii. 7 RO ATA TRA 
1410 1=5M1 : o 

1420 Y=I4SZ+YC:X=XS:GOSUB 11000 - AO 2 METETE, MELO RETA PS 
1430 SP=YC-1 

a A A A AAA A 
1450 OPZ8=INKEYS: IF 0PZ6="" THEN 1450 

dr A A 2 BM” ZA AI A. 


1460 IF DPZ >NV THEN 1450 
1470 1F 0P7$=2E$ THEN X=XS:GOSUB 11000:PRINT SPC( SP); :I=MA:GOTO 1420 
1480 1F ASC(OPZ%)>48 AND ASC (0PZ$) <S8 THEN X=XS:GOSUB 11000: PRINT SPC ( SP) 3: I=0P2:GOTO 1420 

- 1490 IF 0PZ$ <> GIUSTHEN 1950 
1500 X=XS:GOSUB 11000:PRINT SPC( ser, 

ALBO MILI IE IAN TENA E A 
1520 GOTO 1420 
1530 X=XC; WeIRSZFYO A a A > 
1540 1I=IsIF 1 > NV THEN I1=0 

AO PRINT II 
1580 0PZ =1 

: ic AAA a 


010 REM PRESENTA MASCARA di m AAA AAA AA 
2020 REM ——— 
ASIA pa . A A 
2130 Cea JA 
2140 FM=(29-1)/2 » Y > A 
2150 X=1:Y=0:GOSUB 11000:PRINT Me X= XC+7:GOSUB 11000:PRINT H1$: 
2190 OPZ$=LEFTS(STRE(OPZ) 2) ” 
2195 Y=Y+1:X=1:GOSUB 11000:PRINT"| Y0z" 
2200 Y=Y+2:X=1:GOSUB 11000:PRINT " - 
2215 Y=Y-1:X=1:GOSUB 11000:PRINT "| hp EPRINT Sr aer VOS (0PZ)3:PRINT SPC(FM) 
2216 1F M=1 THEN RETURN. A AA — A en 
2217 IF N=1 THEN 2240 
2218 Y=21:X=0: GOSUB 11000: PRINTF1G a A A A EM A AAA 
2220 X=25: Y=22: 60SUB 11000:PRINT HES 
2280 FOR J=1 TO NU A e a INN) 2 RA A 
a A A AÁ — ——————————— 025 5 
AAN NA A RA ai" AE A 


2245 A$= "" 

2270 X=DX(J):Y=DY(J):GOSUB 11000:PRINT D$(J) .. 
2280 IF TP(J) <>5 AND TP(J) <> 4 THEN 2310 

2290 X=CX(J):Y=CY(J):GOSUB 11000 
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2300 PRINT B$(J):G0TO 2500 

2310 Ni=L.C(3):N2=MD(3):1F TP(J)=1 OR TP(J)=2 THEN C$=NS$:G0TO0 2350 
2390 C$=A8$ 

2350 A$=STRINGS (Ni-N2-1,C0$) 

2350 1F N2=0 THEN A$= A$+C$:GDTO 2390 
2370 A$=A$+PDS 

2390 X=0X(J)5 Y=CY (3) :60SUB 11000 

2400 PRINT AS 

2410 B$ (3) =SPACES (N1-N2-1) 

2492 B$(J)=B$(J)+RIGHTS (44,N2+1) 

2500 NEXT J 


3020 REM =———==" 

3030 J=1 

3040 NE=J+ X=CX (NC) : Y=CY (NC) 

3050 CC=1 

3060 GOSUB 3240 

3070 IF FS=0 THEN 3100 

3080 IF FS>4 THEN 3210 

3070 GOTO 3120 

3100 J=J3+1: 1F JONUC THEN 3030 

3110 GOTO 3040 

3120 ON FS GOTO 3130,3150,3170,3190 
3130 1F J>1 THEN J=J-1:GOTO 3040 
3140 PLAY BP$ :FS=0:J=NUC: GOTO 3040 
3150 IF J< NUC THEN J=3+1:GOTO 3040 
3160 PLAY BP$:FS=0:GOTO 3030 

3170 IF CC<LC(J) THEN S=1:0C=0C0+1:X=X+*1:GOSUB 11000:G0TO 3060 
3180 PLAY BP$:FS=0:60TO 3100 

3190 IF CC>1 THEN S=-1:00=CC-1:X=X-1:GOSUB 11000:GOTO 3060 
3200 FLAY BP$:F8=0:G0T0 3040 

3210 IF FS>8 THEN FS=0:GOTO 3060 
3220 1F FS=8 THEN FS=0:GOTO 3100 
3230 RETURN 

3290 REM: nm mm: pe 

3250 REM LECTURA DE UN CAMPO 


3270 FS=0 
3280 1F TP(NC)=4 THEN RETURN 

3290 1F TP(NC)=2 THEN RETURN 

3300 IF MIDS (BG(NC),CC,1)=PDS THEN: X=X+S: CO=CC+S 
3310 GOSUB 11000 

3320 AS=INKEYS: IF Ad= "" THEN PRINT"[]"; :GOSUB11000:PRINTMIDS (BS (NC), CC, 1); :GOSUB11000:GOTOZ320 
3325 1F At="," OR A$="." THEN PLAY BP$:G0TO 3320 
3330 CA=ASC(A$): IF CA > AZ THEN 3380 / 
3340 FOR I=1 TO 15 

3350 IF TF(1)= CA THEN FS = 1: GOSUB 3630: RETURN 
3360 NEXT 1 

3370 GOTO 3320 

3380 1F TP(NC)<>1 THEN 3440 

3390 1F CA=45 OR CA=46 OR (CA>=48 AND CA<=57) THEN 3410 
3400 PLAY BP$:GOTO 3320 

3410 1F CA <> 46 THEN 3440 

3420 GOSUB 4270 

3430. 1F SWP=1 THEN 3400 

3440 S=1: GOSUB 3520 

3450 IF CO=LC(NC) THEN RETURN 

3A60 COSCC+1L: X=X+1:GOTO 3300 

3520 REM 

3530 REM TRANSFERENCIA AL BUFFI 

A 

3550 1F CC=1 THEN SN$= "":GOTO 3570 

3560 SN$=LEFTS (BS (NC), C0=1) 

3570 IF COSLC(NC) THEN DS$= "":GOTO 3590 

3580 N=LC (NC)-0C:DSé=RIGHTS (B$(NC),N) 

3590 BS (NC) =SNS+A8+DSS 

3620 PRINT AS: RETURN 

3630 REM 

3640 REM COMANDOS 

3650 REM === 

3660 IF FS>5 THEN 3690 

3680 RETURN B 

3690 1F FS=9 THEN GOSUB 130005 RETURN 

3700 1F FS=8 THEN GOSUB 4080:RETURN 

3710 IF FS<8 THEN RETURN 

3720 ON FS-9 GOSUB 3740,3910 

3730 RETURN 

3740 REM ——==- 

3750 REM INSERTAR 

3760 REM ———=-- 

3770 1F COSLC(NC) THEN PLAY BP$: RETURN 

3780 IF CO=1 THEN SN$= "":GOTO 3800 

3790 SN$=LEFTS (B4 (NC) ,CC=1) 

3800 N=LC(NC)-CC+1:DS$=RIGHTS (BS (NC),N) 

3810 IF TP(NC)=1 OR TP(NC)=2 THEN C$=BL$:GOTO 3830 
3820 Cé=BL4 

3830 A$=SNS +C4+D8$ 

3840 BS(NC)=LEFTS(AS,LCINC)) 

3850 XX=X1 Y Y=Y 

3860 X=CX (NC): Y=CY (NC) :GOSUB 11000 

3870 X=XM1 Y=VY 

3880 PRINT BS(NC):S=-1 . 
3890 1F RIGHTS (B$(NC),1)= PD$ THEN 3780 

3900 RETURN 

3910 REM === 

3920 REM' BORRADO 

3930. REM! === 
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3940 1F TP(NCI<>1 THEN 3960 

3950 IF MIDS (B$(NC),2,1) = PD$ AND CC=1 THEN RETURN 
3960 1F CE<1 THEN PRINT BP4: RETURN 

3970 IF CC=LC(NC) THEN DS$= "": GOTO 4000 
3980 N=LC(NC) -CC:DS$ =RIGHTS (BS(NC),N) 
3990 IF CO=1 THEN SN$= "": GOTO 4010 
4000 SNS=LEFTS — (BS(NC),CC=1) 

4010 IF TP(NC)=1 OR TP(NC)=2 THEN C$=NS$ 
4020 C$=AS$ 

4030 B$(NC)= SNS +DS$ +05 

2040. XX=X: YY=Y 

4050 X=CX (NC): Y=CY (NC) ¿GOSUB 11000 

4060 X=XX: Y=YY 

4070 PRINT BS(NC);:S=1: RETURN 

4080. REM ===-=---- 

4070 REM ALINEADOS 

ALDO REN 

4110 IF LC(NC)=1 THEN RETURN 

4120 NI=LC(NC)=C0+1 

4130 IF CO=1 THEN BS(NC) = "": GOTO 4150 
4140 ES (NC)= LEFTS (BS (NC),CC=1) 

150 IF TP(NC) =1 OR TP(NC)=2 THEN 4200 
160 FOR 1=1 TO NI 

4170 BS (NC)=B8 (NC) +BL$ 

4180 NEXT 1 

4190 GOTO 4240 

4200 FOR I=1 TO Ni 

4210 BS$(NC)=BL$ +B$ (NC) 

4220 NEXT 1 

4230 IF RIGHT$ (B$(NC),1) =PD$ THEN BS(NC)= BLS +LEFTS (BS(NC),LC(NC)=1) 
4240 X=CX (NC): Y=CY (NC) 

4250 GOSUB 11000 

4260 PRINT BG (NC): RETURN * 
4270 REM ————=--- 

4280 REM CTRL PUNTO 

4290 REM o 


6005 REM CARGA DE DATOS 

QUIEN meramente eines: 

£010 CLS: X=1:Y=18:G05UB 11000;PRINTW3S 

$015 Y=Y+1:GOSUB 11000:PRINT LEFTS (428,4) 

6020 FOR I=1 TO 1000:NEXT 1:Y=22:GOSUB 11000: PRINTUS$; 
6025 R$=INKEYS: IF Ré="" THEN 6025 

6027 IF R$="S" OR Ré="s" THEN 5032 


6028 IF Ré="N" OR Ré=" THEN RETURN 

6030. 1F R$<>"S" OR R4<>"s" OR RS<>"N" OR R$<>"n" THEN 6025 
6032 CLS:X=15: Y=10:GOSUB 11000: PRINTW4S 

56160 OPEN "CAS: IND" FOR INPUT ASH1 

6153 INPUT 41,AA$(0) 

$155 PA=VAL (AAS$ (0) ) 

$157 IF PA=0 THEN 5180 

6170 FOR L=1 TO PA 

6172 INPUT 41,AA4$(L) 

6175 NEXT L 

6180 CLOSE 41 

6200 RETURN 

$300: REM. roer 

6505 REM GRABACION DE DATOS 

á510 REM --— Pm 

4520 CLS:X=1:Y=18: GOSUB 11000:PRINT W3$:Y=Y+1:G0SUB 11000: PRINTWZ$ 
6525 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWS$; 
4530 Ró=INKEY$: 1F Ré="" THEN 6530 

6535 IF R$="S" OR R$="s" THEN 6550 

6540 IF R$="N" OR R$="n" THEN RETURN 

6345 1F R$<>"S" OR R$<>"s" OR R$<>"N" OR R6<>"n" THEN 6530 
6350 CLS:X=15:Y=10:G0SUB 11000: PRINTW4S 

6680 OPEN "CAS: IND" FOR OUTPUT ASH1 

6682 FOR K=0 TO PA 

6685 PRINT 4$1,AAS(K) 


$910 11=0 

6920 FOR RE=1 TO MX 

4925 IS(RE)=0 

$930 AS=MIDS (ARS (RE) ,NI¿NL) 

6940 1F A$=C06 THEN Ti=I1+1:18(11)=RE 
6960 NEXT RE 

6965. RETURN 

TODO REM 

7010 REM LECTURA DE LOS DATOS 

7020 REM == 

7030 RESTORE 10040 

7040 READ NY 

7045 RESTORE 10090 

7050 FOR 1 = 1 TO NV:READ NUC(I) 

7050 NEXT 1 

7066 IF 0PZ=2 OR OP2=3 OR 0PZ=S THEN GOSUB 7200:G0TO 7071 
7071 NUC=NUC(OPZ) 

7072 FOR I=1 TO NUC 

7074 READ DS(I) 

7076 NEXT 1 

7080 FOR 1 = 1 TO NUC 

7090 READ TP(1),LC(1),ND(1),DX(1),DY(1),CXC1),CY (1) 
7110 NEXT 1 


1909 


7120 RETURN 

7200 RESTORE 10100: RETURN 

ARA AAA A A 

8002 REM INTRODUCCION DE LOS DATOS 

DU A 

8010 GOSUB £000 

8020 IF R$="N" OR R$="n" THEN RETURN 

8040 IF PAXBOTHEN 8050 . 

8045 CLS:X=11:Y=10:GOSUB 11000:PRINT"FICHERO DATOS AGOTADO": X=5: Y=205G0SUB 11000:PRINT"Pulsar un 
a tecla para continuar” 

8047 R$=INKEYS: IF Rá="" THEN 8047 ELSE RETURN 

8050 PA=PA+1 

8060 N=0:M=0:60SUB 2000 

8070 GOSUB 3000 

8080 1F FS=6 OR FS=? THEN 8060 

8085 IF FS=7 THEN RETURN 

8090 IF LEFTS(BS(1),1)=CHRS(45)0R LEFTS(BS(1),1)=CHR$(32) THEN GOSUB 9150:G0TO 8060 
8100 AAS(PA)=B$ (1)+B$(2)+B8(3)+B$ (4) +B6 (5) +B9 (6)+B5(7)+B9(8) 

8130 AAS(0)=STRS(PA) | > 

8140 CLS:X=3: Y=10:G0SUB 11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+2:GOSUB 11000:PRINT "(1 
) PARA UNA NUEVA INTRODUCCION" 

8145 Ró=INKEYS:1F R$="" THEN 8145 

B150 IF R$="0" THEN 8165 

8155 IF R$="1" THEN GOTO 8040 

8150 1F R$<>"0" OR R$<>"1" THEN 8145 

8165 GOSUB 6500 

8210 CLS: RETURN 

2900 REM: mormones erre or 

8505 REM VARIACION DATOS 

ET RE 

ES510 GOSUB $000 

B520 1F R$="N" OR R$="n" THEN RETURN 

8534 M=1:G0SUB 2000:%=5: Y=7:G0SUB 11000:PRINT"INTRODUCIR EL NUMERO": Y=Y*2:GOSUB 11000: INPUT "A Y 
ARIAR (1/80) "5NS 

8540 IF NS<1 OR NS>S0 THEN GOSUB 9150:GDTO 8534 

8545 1F NS>PA THENCLS: X=3:Y=10:G0SUB 11000:PRINT"EL CODIGO "¿NS;" NO EXISTE":FOR I=1 TO 2000:NEX 
YT 1:CLS:GOTO 8534 

8547 BS(1)=LEFTS (ARS (NS), 15) :B9(2)=MIDS (AMS (NS), 16,10) :B3(3)=MIDS (AA$ (NS) , 26,20) 
8550 B$ (4) =MIDS (AAS(N5),46,15):B$(5)=MIDS (AA$ (NS), 61,2): B$(6)=MIDS (AAS(NS), 63, 5) 
8555, BS (7) =MIDS (AA$ (NS), 49,4) :B$ (8) =RIGHTS (MAS (NS) ,8) 

8560 FOR I=1 TO 8:TP(1)=5:NEXT 1 

8565 M=0:G0SUB 2000 

8557 FOR I=6 TO B:TP(1)=1:NEXT 

8570 GOSUB 3000 

8575 1F FS=6 OR FS=9 THEN 8545 

8580 IF FS=7 THEN RETURN 

8570 CLS:X=5:Y=10:G0SUB 11000:PRINT"CONFIRMA LA VARIACION? (S/N) " 

8595 R$=INKEYS: IF Ré="" THEN 8595 

8600 1F R$="S" OR Ré= THEN 8615 

8603 1F R6="N" OR R$="n" THEN 9534 

8610 IF R$<>"S" OR R$<>"s" OR RE<>"N" DR RS<>"n" THEN 8595 . 

8615 AASINS)=BS (1)+B6 (2)+B4(3)+84 (4) 484 (3) +B4 (6)4+B$(7)+B$ (8) 

8620 CLS:X=3:Y=10:G0SUB :11000:PRINT "(0) PARA GRABAR EN LA CASSETTE": Y=Y+*2:GOSUB 11000:PRINT "(1 
) PARA UNA NUEVA VARIACION" 

8625 R$=INKEY$: IF R$="" THEN 8625 

8630 IF Ré="0" THEN 8645 

8635 IF R$="1" THEN GOTO 8534 

8640 IF R$<>"0" OR R$<>"1" THEM 8625 

8645 GOSUB 6500 

8700 CLS: RETURN 

9150 CLS:X=16: Y=10:GDSUB 11000: PRINT "ERROR!":FOR I=1 TO 1500: NEXT Il: CLS:RETURN 
10000 REM --—- 

10010 REM DATOS 

10020 REM —--- . 

10030 DATA"EL BANCD DE DATOS DOMESTICO" 

10040 DATA $ 

10050 DATA "Generacion sistema", "Introduccion de los datos" 

10060 DATA "Variacion de los datos", "Ordenado de los datos", "Busqueda", "Impresion" 
10070 DATA 30,31,28,27,20,16,15,13,25,17,17,0,0,0,0 

10090 DATA 0,8,8,8,8,0 

10100 DATA "APELLIDO", "NOMBRE", "CALLE", "CIUDAD", "PROVINCIA", "D.P.", "PREFIJO", "TELEFONO" 
10110 DATA 3,15,0,5,7,16,7 

10120 DATA 3,10,0,5,9,16,9 

10125 DATA 3,20,0,5,11,16,11 

»10130 DATA 3,15,0,5,13,16,13 

10135 DATA 3,2,0,5,15,16,15 

10140 DATA 1,5,0,21,15,29,15 

10145 DATA 1,4,0,5,17,16,17 

10150 DATA 1,8,0,5,19,16,19 


11010 REM POSICIONA CURSOR 

11020 REM —— oe 

11030 LOCATE k,Y 

11040 RETURN 

12000 REM ———— 

12004 REM GENERACION SISTEMA 

12008 REM == === 

12012 CLS:M=1:GOSUB 2000 

12015 X=10:Y=10:GOSUB 11000:PRINT "GENERACION EN CURSO": Y=Y+3: GOSUB 11000:PRINT "CONTINUO (S/N)" 
12020 R$=INKEY$: IF Ré="" THEN 12020 

12025 IF Ré="N" OR Ré="n" THEN RETURN 

12030 IF R$="S" OR Ré="s" THEN 12040 

12035 IF R6<)S" OR R$<>"" OR R$ <>"N" OR Ré<>"n" THEN 12020 
12040 CLS: X=L:Y=18:G0SUB 11000:PRINTWIS + 
12045 Y=Y+1:G0SUB 11000:PRINT 112% 

12050 FOR I=1 TO 1000:NEXT 1:Y=22:GOSUB 11000: PRINTWSS; 

12055 Ré=INKEYS: 1F Rá="" THEN 12055 

12060 IF R$="S" DR R$="s" THEN 12100 

12065 IF Re="N" OR Ré="n" THEN RETURN 
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12068 IF R$<>"S" DR R$<>"s" OR RSC>UN" DR R$<>n" THEN 12055 


12100 CLS:Y=10:X=7:GOSUB 11000:PRINT"Este programa preve un maximo de 80 movimien 


tos" 
12110 Y=22:GOSUB 11000:PRINT"Pulsar RETURN para continuar" 
12120 R$=INKEYS: IF R$="" THEN 12120 

12130 IF RS<>CHR$(13) THEN 12120 

12170 CLS: X=12:Y=10:G0SUB 11000:PRINT"ESPERE, POR FAVOR" 
12176 OPEN "CAS: IND" FOR OUTPUT ASH1 

12180 ARS) ="" 

12184 AA$(0)=STRING$ (L1,AS$) 

12189 PRINT 11,AA$(0) 

12192 CLOSE 41 

12196 CLS:X=15:Y=10:G0SUB 11000:PRINT "TERMINADO! "FOR I=1 TO 1000:NEXT 1 
12200, RETURN 

13000 REM'--=== 

13010 REM AYUDA 

158020 REM ----= 

13030 LOCATE 0,22 

13040 PRINT "AYUDA (barra espaciadora para continuar)”; 
13050 GOSUB 13220 

13060 PRINT "FLECHAS: mueven en las 4 direcciones Ez 
13070 GOSUB 13220 

13080 PRINT "REFURN: alinea y convalida introduccion "; 
13090 GOSUB 13220 


13100 PRINT "F1; vuelve al menu principal A 
13110 GOSUB 13220 
13120 PRINT "F2: anula toda la introduccion 53) 
13130 GOSUB 13220 
13140 PRINT *F3: borra un caracter “ 


13150 GOSUB 13220 
13160 PRINT "F4; permite la inserción de espacios es 
13170 GOSUB 13220 


13180 PRINT "FS: introduccion en cassette 3 
13190 GO0SUB 13220 
13200 PRINT " CTRL Y (AYUDA) 15 


13210 RETURN 
13220: A$=INKEYS: IF Ab= "THEN 13220 

13230 1F A$<> CHRS(32) THEN 13220 

13240 LOCATE 0,22 

13250 RETURN 

14000: REM: === 

14010 REM BUSQUEDA 

14020 REM ======== 

14030 GOSUB 000 

14040 1F R$é='"N" OR Ré="n'"" THEN RETURN 

14120 M=0:N=0:GOSUB 2000: GOSUB 3000 

14125. 1F FS=6 OR FS29 THEN 14120 

14130 1F FS=7 THEN RETURN 

14140 CLS:X=12:Y=10:G0SUB 11000: PRINT'ESPERE, POR FAVOR" 

14150 O=0:MX=PA 

14152 FOR W=1' TO NUC 

14195 1F TP(W)>2 AND (LEFTR(BS (4), 1)=CHR$(95) OR LEFTS(BS(W),1)=CHR$(32)) THEN 14270 


14150 1F TP(W)=1 AND (RIGHTS (B4(W), 1)=CHR$(32) OR RIGHTS (BS (4), 1) =CHR$ (61) 0R RIGHTS (BS (W),1)=CHR 


3(45)) THEN 14270 

14165 CO$=B$ (4) :NI=0:NL=0 

14170 FOR D=1 TO NUC 

14175 1F D=W THEN 14190 

14180 NI=MI+LC (D) 

14185 NEXT D 

14190 NL=LC(D):NI=NI+*1 

14200 60SUB 6900 

14205 IF 0 <> O THEN 14235 

14210 OSL:FOR I=1 TO MX:JS(1)=1S(1)3NEXT 1 

14213 GOTO 14270 

14235 FOR K=0 TO MX 

14240 FOR L=0 TO MX 

14243 IF IS(K)=1S(L) THEN 14260 

14250 NEXT L 

14255 IS(K)=0 

14260 NEXT K 

14270 NEXT M 

14280 CLS:M=1:GOSUB 2000 

14285 X=1:Y=7:GOSUB 11000:PRINT"INTRODUCIR OPCION DE IMPRESION DESEADA" 
14290 X=12:Y=Y+4:G0SUB 11000:PRINT"1) EN IMPRESORA": Y=Y+2:60SUB 11000 
14295 PRINT"2) EN VIDEO": Y=Y*2:GOSUB 11000 

14300 PRINT"3) VUELVE AL MENU": X=X+3: Y=Y+3: GOSUB 11000: PRINT"ELIJA" 
14305 SC6=INKEYS: 1F SC$<>"" THEN 14325 

14310 X=22:GOSUB 11000:PRINT" MY: sosue 11000:PRINT"  " 

14320 GOTO 14305 

14325 SC=VAL (SC$):1F SC<1 OR SC>3 THEN 14305 

14330 IF SC=3 THEN RETURN 

14335 FOR A=1 TO MX 

14350 IF JS(A)=0 THEN 14383 

14355 V=1:1=JS (A) :GOSUB 16230 

14360 1F SC=1 THEN 14385 

14370 X=3:Y=21:GOSUB 11000:PRINT"Pulsar una tecla para continuar" 
14380 Ré=INKEY$: IF R$="" THEN 14380 

14383 JS(A)=0: IS(A)=0 

14385 NEXT A 

14500 CLS:G0TO 14120 

15000 REM --—--— 

15005 REM ORDENADO 

15007 REM. =-——=== 

15030 GOSUB 6000 

15040 IF R$="N" OR R$="n" THEN RETURN 

15110 M=1:GOSUB 2000 

15115 X=7:Y=5:GOSUB 11000;PRINT "INTRODUCIR EL NUMERO DE CAMPO" 
15120 Y=Y+1:G0SUB 11000:PRINT"A UTILIZAR PARA EL ORDENADO"; Y=Y+3 
15123 S1=0 


1911 


15125 FOR K=1 TO NUC 

15130 L9=10-LEN(DA(K))3 1F L9-0 THEN 15140 

15135 DS(K)9DA (K)ASGPACER (LO, BL4) 

15140 Y=Y+1:G0SUB 11000:PRINT K;D$(K) 

15145 NEXT K- 

15150 X*=10:Y=21:GOSUB 11000:PRINT"ELIJA" 

15155 S16=INKEYS: IF S1$<> "" THEN! 15170 

15160 X=15:GOSUB 11000:PRINT " fP":GOSUB 11000:PRINT " " 

15165 GOTO 15155 á 

15170 CLS:X=12:Y=10:GOSUB 11000:PRINT"ESPERE, POR FAVOR" 

15190 S1=VAL(S1$): IF Si<1 OR S1>BTHEN 15155 

15200 NI=0:NL=0 

15205 FOR D=1 TO NUC 

15210 IF D=S1 THEN 15225 

15215 NI=NI+LC(D) 

15220 NEXT D 

15225 NL=LC(D):NI=NI+1 

15230 GOSUB 15500:REM SUBRUTINA DE ORDENADO 

15250 CLS: X=1:Y=7:60SUB 11000:PRINT"INTRODUCIR OPCION DE IMPRESION DESEADA" 
15255 X=12:Y=Y+4:G0SUB 11000:PRINT"1) EN IMPRESORA": Y=Y+2:GOSUB 11000 
15260 PRINT"2) EN VIDEO": Y=Y+2:GOSUB 11000 

15265 PRINT"3) VUELVE AL MENU": X=X+3:Y=Y+3:GOSUB 11000: PRINT"ELIJA" 
15270 SC$=INKEYS: 1F SC$<>"" THEN 15285 

15275 X=22:GOSUB 11000:PRINT" BM": sosub 11000:PRINT" " 

15280 GOTO 15270 

15285 SC=VAL (SC$): 1F SC<1 OR SC>3 THEN 15270 

15290 IF SC=3 THEN 130 

15295 FOR A=1 TO N 

15300 V=1:I=IS(A):GOSUB 16230 

15305 IF SC=1 THEN 15350 

15310 X=0:Y=21:G0SUB 11000:PRINTF1$:X=3:Y=Y+1:G0SUB 11000:PRINT"Pulsar RETURN para otro nombre”: 
Y=Y+2:G0SUB 11000:PRINT"Otra tecla para volver al menu"; 

15320 R$=INKEYS: IF Ró="" THEN 15320 

15335 IF R$<>CHR$(13) THEN 15355 

15350 NEXT A. 

15355 CLS:GOTO 15250 

15500 REM ORDENADO 

15502 N=PA 

15520 P=0 

15530 FOR I=1 TO N 

15540 IS(1)=1:NEXT 1 

15545 Ii=1:J1=N 

15550 1=]1:J=J1:5="1 

15595 ALS=MIDS (AAS(1IS(1)),NI,NL):B1$-MIDS(AAL(IS(J)),NI,NL) 

15560 1F A1$S <=B1$ THEN 15580 

15565 V=1S(1): 15(1)=15(J) 

15570 15(J)=V:S=SGN (-S) 

15580 IF S=1 THEN I=1+1:G0TO0 15590 

15585 J=J-1 

15590 IF 1<J THEN 15555 

15600 IF 1+1>J1 THEN 15520 

15605 P=P+1 

15610 S9(P,1)=1+1:59(P,2)=J1 

15620 Ji=1-1 

15625 IF 11<J1 THEN 15550 

15630 IF P=0 THEN 15650 

15635 11=89(P,1):J1=59(P,2):P=P-1 

15640 GOTO 15550 

15650 REM 

15700 CLS: X=3: Y=10:GOSUB 11000:PRINT "(0) SOLO PARA IMPRESION DE LOS DATOS": Y=Y+2:G0SUB 11000:PR 
INT "(1) PARA LA GRABACIÓN EN CASSETTE" 

15705 R$=INKEY$; IF R$="", THEN 15705 

15710 IF R$="0" THEN 15250 

15715 1F R$="1" THEN GOTO 15725 

15720 1F R$<>"0" OR R$<>"1" THEN 15705 

15725 CLS:X=3: Y=18: GOSUB 11000:PRINT W38:Y=Y+1:GOSUB 11000: PRINTW28 
15730 FOR I=1 TO 1000:NEXT I:Y=22:GOSUB 11000: PRINTWS$; 

15735 R$=INKEYS: IF R$="" THEN 15735 

15740 IF R$="S" DR R$="s" THEN 15755 

15745 1F R$="N" OR R$="n" THEN RETURN 

15750 IF R$<>"S" OR R$<>"s" OR R$<>"N" OR R$<2"n” THEN 15733 

15735 CLS:X=15:Y=10:GOSUB 11000: PRINTWAS 

15780 OPEN "CAS: IND" FOR OUTPUT ASH1 

15785 AA$(0)=STR$ (N) 

15790 FOR I=0 TON 

15795 PRINT 41,AA$S(IS(I)) 

159800 NEXT 1 

15810 CLOSE $41 

15830 CLS:RUN 

16000 REM --—-—-—- 

16010 REM IMPRESION 

16020 REM --—-——-——— 

16030 GOSUB 6000. 

16040 IF R$="N" OR R$="n" THEN RETURN 

16120 CLS:M=1:GOSUB 2000 

16130 X=1:Y=7:G0SUB 11000:PRINT"INTRODUCIR OPCION DE IMPRESION DESEADA" 
16140 X=12:Y=Y+4:G0SUB 11000:PRINT"1) EN IMPRESORA": Y=Y+2:GOSUB 11000 
16150 PRINT"2) EN VIDEO": Y=Y+2:G0SUB 11000 

16160 PRINT"3) VUELVE AL MENU": X=X+3: Y=Y+3:G0SUB 11000: PRINT“ELIJA" 
16170 SC$=INKEYS$: IF SC$<>"" THEN 16200 
16180 X=22:G0SUB 11000:PRINT" (A":GOSUB 11000:FRINT"  " 
15190 GOTO 16170 

16200 SC=VAL(SC$): 1F SC<1 OR SC>3 THEN 16170 
16210 IF SC=3 THEN RETURN 
16215 V=0 

16220 FOR I=1 TO PA 

16230 B$(1)=LEFTS(AA$(1),15):B$(2)=MID$(AA$(1),16, 10): B$(3)=MID$ (AA$ (1),26,20) 
16240 B$(4)=MID$(AA$(1),46,15) :BS (5) =MIDS(AA$(1),61,2):B$(6)=MIDS(AAS(1),63,5) 
16250 B$(7)=MID$ (AA$(1),68,4):B$(9) =RIGHT$ (AAS (1),8) 
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16370 GOTO 16430 
16390 LPRINTILPRINT TAB(Z): "Apellidos “iBó(113" Nombre "¡290 


De AA A A A A AAA e 
A A A A A A A A A 
GAS E AO NA E VO A TRAS DA E | 
e PA ESMAS RL 7 Vit, MIDA ARES IL TEE 
> A A AAA A A A A A AS 
EE A A A A A 
AA TAO A - ARE ARENA > AA 
A A A A A AR A 
E A AA E A E O 
BO ÓQ$qPRIEFRBA— A A A A A AA AA 
EEES IO EAS TEE 71 AAA A IEA ACIDO 
A A A A 
OO RXKÁKKK0w$Xe— A A A A AA A 
A A A A AAN 


RELACION DE VARIABLES - VERSION PHILIPS VG 8010 


TF(x) = códig. ASCII de teclas de comando 
TP(«) =tipo del campo de introducción 
LC(+) =longitud del campo de introduc- 
ción 
ND(«) =número de decimales del campo 
de introducción 
CX(«) =coordenada horizontal de princi- 
pio del campo de introducción 
= coordenada vertical del campo de 
introducción 


CY («) 


DX(«) 

DY (+) 

BS(+) = buffers (1 por campo de introduc.) 

DS(s) = descripciones 

VOS(+) =voces del menú principal 

AAS(+) = matriz de los registros (es una va- 
riable dimensionada porque la 
cassette trabaja con un fichero se- 
cuencial y necesita reservar el es- 
pacio necesario en la memoria) 


= coordenadas de las descripciones 


S9(+, +) 

JS(+) = punteros a los registros utilizados 

1S(+) en las subrutinas de búsqueda y 
ordenado 


ERS, BPS$ 


A1, A2 


NS$ 
AS$ 
PD$ 


PA 


NI, NL 


= indican error 

=límites de aceptación del código 
ASCII de la tecla pulsada en la 
Data Entry 

=carácter "=”, identifica los cam- 
pos numéricos en la Data Entry 

=carácter ”—", identifica los cam- 
pos alfanuméricos en la Data Entry 

=carácter ”.”, identifica el punto 
decimal 

= blank 

=tecla RETURN, permite la intro- 
ducción de la voz elegida en el 
menú principal 

= barra espaciadora, permite el po- 
sicionado del indicador del menú 
principal 

= último dato introducido en las sub- 
rutinas de carga de datos (6000) y 
grabación (6500) 

= bytes de extracción del registro de 
la cadena a utilizar para la compa- 
ración en la subrutina de selec- 
ción (6900) 
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Menú principal. En la foto se ha presentado el menú 
principal del programa en versión Apple; en él se 
presentan las funciones que puede activar el usuario 
pulsando la tecla RETURN despuésde haber 
posicionado el indicador mediante la barra 
espaciadora. Para preparar el fichero en que se 
escribirán los datos introducidos es necesario, como 
primera operación, activar la voz Generación del 
sistema. 


Introducción de datos. El usuario ha seleccionado la 
segunda voz del menú principal, y el programa ha 
activado la máscara vídeo correspondiente. En este 
caso, los campos disponibles ya se han llenado con 
los datos de descripción pedidos. Para grabar en 
disco bastará ahora con pulsar CTRL + £. 


Búsqueda. La voz activada en esta másccara vídeo 
es la 5 (Búsqueda). Esta función consiste en 
identificar una o más grabaciones que contengan los 
parámetros de búsqueda introducidos que se 
proporcionan al programa con una máscara vídeo 
idéntica a la de introducción. La función de búsqueda 
se realizará explorando el fichero de datos y 
comparando los datos leídos con los parámetros 
introducidos. En este caso, el usuario está buscando 
todas las grabaciones que contienen el número 
12345678 en la voz «teléfono». Esta función también 
prevé la presentación de la ayuda, porque la máscara 
vídeo está gestionada con la Data Entry y, por tanto, 
es posible el uso de todos los programas. 


La función de búsqueda ha terminado, y el programa 
presenta en la pantalla el grupo de datos que 
contiene los parámetros de selección. En el campo 
reservado a los números telefónicos se presenta el 
número ya introducido que ha servido para buscar los pe de ALWAREZ 
datos entre los que hay en el fichero. Hombre ANTONIO 


carril 


tecla para continia 
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Extensiones y modificaciones 


Gestión de un almacén 


La posibilidad de definir uno o más campos como 
resultado de los cálculos permite extender la apli- 
cación de estos programas a varias problemáti- 
cas. Una de ellas es la gestión de almacenes, 
que puede realizarse simplemente variando el 
lormato de las máscaras e introduciendo los 
oportunos cálculos (ilustrados más adelante). 

La gestión de un almacén en los casos más sen- 
cillos puede resolverse en la gestión de un fichero 
que contiene los datos de cada artículo, las canti- 
dades existentes, los costes y, eventualmente, las 
cantidades mínimas necesarias como existencia 
de reserva. 

Los movimientos, o sea las operaciones de entra- 
da y de salida de las mercaderías, son las únicas 
funciones que pueden variar las existencias, y 
por tanto debe preverse una subrutina que sume 
una cierta cantidad (carga) y otra que realice res- 
tas (descarga). Además, para identificar un deter- 
minado artículo, pueden seguirse dos métodos: 

— Selección según la descripción 

— Empleo de un código 

El primer método está más sujeto a errores. Ge- 
neralmente, la descripción de un artículo está for- 
mada por varias palabras, y una búsqueda en es- 
te campo requiere la introducción del dato exac- 
tamente como se escribió la primera vez, com- 
prendidos los espacios, las comas y otros signos 
eventuales. Esta necesidad implica mucha aten- 
ción por parte del usuario y puede generar erro- 
res. En cambio, el segundo método es más segu- 
ro. Un código, aunque esté formado por varios 
caracteres (letras y números), no contiene ni es- 
pacios ni símbolos particulares. 

Y viceversa, en el caso de otras formas de codifi- 
cación, es necesario realizar la búsqueda utilizan- 
do como campo clave el código, y si bien con un 
ordenado es posible utilizar métodos que acele- 
ren la operación, se tiene un empleo de tiempo 
muy superior que en el otro caso. 

Resumiendo, el contenido de cada registro del fi- 
chero de almacén puede ser: 


1 / Código del artículo (sólo si no se adopta el nú- 
mero de registro) 

2 / Descripción 

3 / Ultima cantidad cargada 

4 / Ultima cantidad retirada 

5 / Existencia 

6 / Reserva mínima 

7 / Flag de bajo reserva 

8 / Coste 

9 / Precio 


Los campos 3 y 4 son de movimientos, y sirven 
para actualizar el campo 5. Al archivar las merca- 
derías (carga), la Data Entry, después de la intro- 
ducción del campo 3, encuentra el campo 5, defi- 
nido como cálculo, y cuyo valor es: 


Campo 5 (actual) = 
= Campo 5 (anterior) + Campo 3 


Análogamente para la descarga, el campo 4 ac- 
tualiza, por resta, el contenido del campo 5. 
Después de esta operación de actualización de- 
be escribirse O (o b) en los campos 3 y 4, para 
impedir que se considere más veces la misma 
cantidad. 

Esta solución implica un desaprovechamiento de 
espacio en el disco, porque los campos 3 y 4 sólo 
se utilizan para introducir los valores numéricos a 
sumar algebraicamente a la existencia. Antes de 
la salida de la Data Entry. 

Este defecto puede eliminarse modificando la 
gestión del disco. 

En la forma usual, cada registro se obtiene como 
suma de las cadenas que constituyen el buffer de 
la Data Entry, o sea como suma de los contenidos 
de la matriz B$(+). Para evitar esta pérdida de es- 
pacio basta con sumar los campos 3 y 4, con lo 
que el registro estará constituido por: 


B$(1) + B$(2) + BS(5) + BS(6) + 
+ BS(7) + B$(8) + BS(9). 


Para la gestión de las existencias mínimas, el 
campo 7 también debe ser definido por cálculo, 
aunque en realidad no genera ningún valor, sino 
sólo la implantación de un flag. Las funciones a 
realizar en esta parte de la Data Entry son: 


— Comparación entre el contenido del campo 5 
(que ha sido actualizado por el último dato in- 
troducido) y el contenido del campo 6 

—-Si el contenido del campo 6 es inferior al del 
campo 5, se implanta el flag de bajo reserva, 
por ejemplo poniendo B$(7) = «*» 

— De otra manera, B$(7) = «b» 


Así, cada artículo cuya existencia está bajo reser- 
va, se indica con el símbolo «sx» en el campo 7, lo 
cual es suficiente para hacer un listado del fichero 
que presente los artículos a reordenar. 
Finalmente, obsérvese que para una mejor ges- 
tión del almacén es necesario disponer del regis- 
tro de carga y descarga, o sea de un tabulado 
que indique diariamente todas las operaciones 
de entrada y de salida de las mercaderías, subali- 
vididas en artículos. Esto puede obtenerse pre- 
viendo la impresión de los campos 3 y 4 antes de 
su anulación, o bien su memorización en un fiche- 
ro separado al final de cada jornada. 
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Hasta ahora, para superar los olvidos o las dudas 
en la cocina, o se consultaban obras de compli- 
cadísima gastronomía, o el problema se resolvía 
más sencillamente adquiriendo varios platos pre- 
parados. Actualmente, el ordenador se ha con- 
vertido en una realidad de la vida doméstica y 
debe entrar en el reino del ama de casa. 

Con el uso del procesador electrónico en la coci- 
na pueden resolverse problemas de tiempo o 
errores de dosificación de los ingredientes; apro- 
vechando su memoria puede gestionarse un ar- 
chivo de recetas o de consejos alimentarios de 
manera extremadamente rápida y segura; gra- 
cias a su capacidad de cálculo pueden calcular- 
se, en todo momento, las cantidades necesarias 
para un determinado número de comensales, 

El procedimiento del Recetario permite efectuar 
estas operaciones con sencillas intervenciones 
por parte del usuario. Podrá configurar y gestio- 
nar su archivo de recetas según sus propias exi- 
gencias, introduciendo a voluntad nombres, des- 
cripciones y composiciones. 

Por tanto, el calculador se convierte en un experti- 


Uso del programa 


El procedimiento se desarrolla con dos progra- 
mas diferentes: 


mn Recetario 
m Control del peso 


Las funciones de un programa son diferentes e 
independientes de las del otro, por lo que el usua- 
río puede decidir cuál de los dos utilizar, 

El programa de utilidad más general es el primero 
(Recetario), que permite memorizar un cierto nú- 
mero de recetas, especificando para cada una 
los componentes y las dosis. 

El programa prevé además un archivo que con- 
tiene todos los ingredientes utilizados para las re- 
cetas: su uso constituye un útil complemento para 
la elección de los platos en tunción de necesida- 
des particulares, El segundo programa permite la 
memorización de los pesos corporales en función 
del tiempo y presenta los datos gráficamente, po- 
niendo de manifiesto su evolución. Constituye un 
sencillo y directo medio para el control de la dieta. 
En la máscara vídeo que aparece al principio del 


1916 


simo cocinero que, con férrea memoria, es capaz 
de presentar en cualquier momento la receta bus- 
cada, aun si el usuario sólo ha introducido como 
parámetro de búsqueda una parte del nombre. 
Mediante una función prevista en el programa, el 
ama de casa, o quien sea, podrá determinar las 
nuevas dosis de ingredientes en una receta ya 
introducida al variar el número de personas pre- 
vistas; además se presenta el contenido calórico 
del plato, o sea la suma de los contenidos calóri- 
cos de los ingredientes simples, dando de esta 
manera útiles indicaciones sobre las característi- 
cas dietéticas de cada plato. 

El archivo de las recetas está complementado 
por un archivo de ingredientes paralelo, que el 
usuario puede gestionar y modificar a voluntad. 
El segundo programa del procedimiento permite 
constituir un archivo de datos personales orienta- 
do al control del peso de las personas. De esta 
manera, el usuario podrá registrar su peso regu- 
larmente, función que el calculador realizará y 
que, además, mostrará un gráfico de la evolución 
del peso, 


programa, las dos voces no están ligadas entre 
sí, por lo que el usuario puede utilizar solamente 
Una de ellas. 


Recetario 


Es el programa principal de este procedimiento. 
Como en todos los demás programas, la primera 
función a activar es la Generación del sistema 
(voz 5), que ya no deberá repetirse si no es para 
utilizar un nuevo disco o una nueva cassette de 
datos, La siguiente voz, en orden de activación, 
es la 4 (archivo de ingredientes): con ésta se ge- 
nera un archivo en el que memorizar los ingre- 
dientes con sus respectivos contenidos calóricos. 
Estos datos se utilizarán en las fases de introduc- 
ción y de búsqueda de recetas para calcular las 
calorías contenidas en cada plato. 

En esta fase, el sistema avisa al usuario que debe 
generar el archivo de los ingredientes. El archivo 
se termina con la memorización de las calorías de 
cada ingrediente introducido y, a continuación, 
con el cálculo de las calorías de cada re- 


do las calorías de cada receta, Activando la voz 4 
clel menú principal se presentan todas las funcio- 
nes necesarias para la gestión del archivo de in- 
gredientes. La primera función sirve para memori- 
zar los ingredientes que se quiere utilizar en los 
Oiversos platos: naturalmente, esta introducción 
no debe hacerse a priori, Al principio sólo deben 
ligurar los principales, completando el archivo a 
medida que se presenta la necesidad. 

Los datos introducidos pueden corregirse con la 
voz 2, mientras que con la 4 es posible obtener 
una impresión en orden alfabético (el ordenado 
alfabético no se memoriza); finalmente, la voz 3 
genera la impresión en orden de introducción. 
En la gestión de este archivo es indispensable 
que las unidades de medida sean homogéneas 
con las utilizadas en las recetas. 

Por ejemplo, si un determinado componente tiene 
el contenido calórico expresado en calorías por 
gramo, al introducir una receta que lo utiliza, la 
cantidad debe expresarse en gramos. 

Esta limitación puede causar inicialmente confu- 
siones y resultados inexactos: es necesario corre- 
gir los datos introducidos a medida que se utili- 
zan en el programa. 

En la máscara de introducción de ingredientes se 
han previsto los siguientes campos: número pro- 
gresivo, nombre y contenido calórico (expresado 
en el modo indicado), Esta misma máscara tam- 
bién se emplea para las correcciones. 


Introducción de recetas. Finalizada la genera- 
ción del sistema, y después de una primera intro- 
ducción de los contenidos calóricos, puede pro- 
cederse a la construcción del recetario propia- 
mente dicho. La introducción de cada receta se 
realiza en tres fases sucesivas. 

En la primera se proporcionan los datos descripti- 
vos, o sea, los elementos que distinguen una re- 
ceta de otra. Los datos previstos son: «número 
progresivo», que a partir de 1 indica el número de 
la receta que se introduce y es utilizado principal- 
mente por el ordenador para una búsqueda rápi- 
da; «nombre del plato», que puede utilizarse para 
la búsqueda, seleccionando todos los platos que 
tienen Una parte del nombre en común (con lo 
que es posible obtener la presentación por tipo 
de manjar o por contenido); «época más adecua- 
da», que se emplea para la selección según la 
estación (si no se usa, puede dejarse en blanco). 
La segunda parte de la introducción se reserva a 
la descripción del plato. Para ello, el usuario pue- 
de aumentar el número de líneas previstas varian- 
do pocos parámetros y poder insertar así una 
descripción más extensa, 

La última parte de la introducción de recetas pre- 
senta la máscara vídeo necesaria para la intro- 
ducción de los ingredientes. Para cada uno, ade- 


más del nombre, es necesario Introducir la canti- 
dad prevista expresada en gramos y, al terminar, 
el número de personas en base al cual se han 
indicado las dosis. Con estos valores, el progra- 
ma calcula el contenido calórico y las nuevas do- 
sis cuando se varía el número de personas (estos 
cálculos se hacen en la voz 2 del menú). 

Al final de esta fase se dispone de un archivo 
completo que puede consultarse. La función a 
utilizar es Determinación de dosis y contenidos (la 
voz 2 del menú). El usuario puede buscar una re- 
ceta y pedir el cálculo de las dosis y del conteni- 
do calórico según dos parámetros: número y 
nombre de la receta. El primero es el más directo, 
puesto que en la introducción se ha asociado un 
número progresivo a cada receta: para encon- 
trarla basta con introducir el número correspon- 
diente, dejando en blanco los otros campos. 
Naturalmente, esta selección sólo se usa para'te- 
ner la presentación de la receta, Su utilidad con- 
siste en la capacidad de cálculo de los ingredien- 
tes al variar el número de personas y el contenido 
calórico. 

La selección según el nombre es mucho más útil. 
Con este campo puede obtenerse la impresión 
de las recetas que utilizan determinados alimen- 
tos (si se han incluido en el nombre) o por tipo de 
plato (primero, guarnición, etc.). 

Todas estas posibilidades permiten que el pro- 
grama se adapte a las necesidades particulares. 
En base a los valores introducidos en la máscara 
7, el programa analiza los datos contenidos en el 
recetario y presenta, con la máscara 8, los que 
satisfacen las condiciones impuestas. En esta 
fase también se recalculan las dosis y el conteni- 
do calórico si el usuario introduce un número de 
personas diferente al previsto en la receta, La Últi- 
ma voz (impresión receta) presenta todos los da- 
tos introducidos en cada receta y en orden pro- 
gresivo, 


Control de peso 

El programa permite memorizar una serie de pe- 
sos personales y obtener un gráfico en función 
del tiempo o una tabla que muestra la variación 
entre una pesada y la anterior. Esta magnitud, 
que en la máscara aparece con el nombre de 
«Variación», es útil para comprobar el efecto in- 
mediato de una dieta, mientras que el gráfico 
muestra su evolución a medio y largo plazo. 

De hecho se han previsto dos clases de gráficos 
idénticos desde el punto de vista de la programa- 
ción, pero muy diferentes en significado. El primer 
gráfico presenta todas las pesadas correspon- 
dientes a un determinado mes, por lo que tiene 
un máximo de 31 valores (uno por día); en cam- 
bio, el segundo presenta el valor medio mensual 
con un máximo de 12 puntos, uno por cada mes. 
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Naturalmente, y siempre que el control se haya 
iniciado en enero (mes 1), los 12 puntos sólo se 
tendrán al final de año; si se empieza en otra fe- 
cha, a fin de año se tendrá un número de puntos 
proporcionalmente menor. 

Este gráfico expresa el efecto medio de la dieta 
seguida durante cierto tiempo. 

En el menú principal del programa se indican las 
funciones previstas. Respecto a los anteriores, 
falta la generación del sistema para poderlo apli- 
car a varias personas. Efectivamente, al activar el 
programa, pide el nombre de la persona antes de 
la elección de la voz. Si el nombre no se ha utiliza- 
do antes, el sistema, después de consultar, ge- 
nera automáticamente el oportuno fichero (de 50 
a 100 registros de longitud, según la versión). De 
otro modo, pasa a la ejecución de la función pedi- 
da. Este procedimiento es necesario porque pue- 
den coexistir varios ficheros de datos, uno por 
persona, y no sería práctico activar manualmente 
la generación para cada una de ellas. Los dife- 
rentes ficheros, uno por persona, se tratan todos 
del mismo modo y con las mismas rutinas. El úni- 
co parámetro que los distingue es el nombre del 
fichero, constituido por las primeras letras del 


nombre de la persona. Por tanto, antes de activar 
cualquier función, debe especificarse el nombre 
de la persona. 

La máscara vídeo para la introducción de las pe- 
sadas prevé los siguientes campos: nombre de la 
persona (para seleccionar el fichero preciso), 
peso y fecha en que se ha efectuado la pesada. 
En esta introducción debe prestarse mucha aten- 
ción al introducir los valores. 

Como para cada pesada el sistema calcula la va- 
riación con respecto a la anterior, un solo valor 
equivocado puede producir cálculos inexactos 
en la impresión y generar gráficos notablemente 
diferentes a la realidad. En la impresión, los datos 
se presentan en forma de tabla. La columna de 
variación expresa la diferencia entre una pesada 
y la anterior y, si las pesadas se hacen a interva- 
los regulares de tiempo, da un valor proporcional 
a la «velocidad de variación del peso». 

La última función del programa es la presentación 
de los gráficos. Como ya se ha dicho, los dos grá- 
ficos son idénticos y sólo varían la escala de los 
tiempos y el significado de los puntos indicados 
(en el primer caso son todas las pesadas de un 
mes y, en el segundo, el valor medio). 


Puesta en marcha del programa. En la versión en disco, 
después de la carga del primer programa previsto en el 
procedimiento y de la introducción del comando RUN, la 
primera máscara vídeo presentada es la que recuerda al 
usuario que debe introducir el disco o cinta que contiene 
o que deberá contener los datos. 

Si para la grabación de los datos se utilizan diskettes 
diferentes del que contiene el programa, puede 
gestionarse un archivo completamente personalizado. 


INSERTAR LA CASSETTE DE DATOS 


Y PULSAR UNA TECLA 


Menú principal. El programa prosigue presentando el 
menú principal, mediante el cual el usuario podrá activar 
las funciones previstas. La elección se efectúa 
posicionando el indicador al lado de la voz deseada 
mediante las teclas de desplazamiento (CRSR DOWN = 
desplaza abajo, CRSR RIGHT = desplaza arriba) e 
introduciendo la opción con la tecla f1. 


Ediciones Forum, S.ñ 


RECETARIO 


Generacion 


ivo list 
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Generación del sistema. La primera función a activar 
es la generación del sistema que prepara el diskette o 

la cinta de datos para su utilización. El programa pide 

la confirmación antes de proseguir, puesto que con 

esta función se anulan eventuales ficheros creados 
anteriormente, con la consiguiente pérdida de los datos. 
Además, al usuario le recuerda el número de recetas y de 
ingredientes que podrán introducirse en cada disco o 
cinta de datos y la necesidad de pensar en llenar el 
archivo de los ingredientes al final de la generación, 

los cuales servirán para la composición de las recetas. 


Menú archivo ingredientes. El archivo de los 
ingredientes prevé un menú secundario que permite la 
gestión completa de los datos introducidos. Si el usuario 
desea volver al menú principal del programa, podrá 
hacerlo introduciendo la voz 5 


Introducción ingredientes. El usuario ha activado la voz 
1 del menú archivo de ingredientes. El programa presenta 
el número de registro (el siguiente al último introducido) 
en el que se hará la grabación y espera la introducción de 
los datos. 

El contenido calórico del ingrediente, que debería estar 
expresado para un solo gramo, se ha calculado para 100 
gramos de producto. 


Impresión del archivo de ingredientes. El usuario ha 
activado la voz 3 del menú archivo de los ingredientes y 
ha pedido la presentación en vídeo. Las grabaciones se 
presentan en la misma secuencia en que se han grabado 
en el soporte magnético. Además del nombre se presenta 
el correspondiente contenido calórico. Se ha previsto la 
pulsación de una tecla por parte del usuario para permitir 
la lectura completa de una máscara vídeo. 


acion en curso 


continuo (si/n0)? si 


te programa preve un 
de 50 


50 ingredientes 


recetas 


11 final de ta funcion 
2 21eccionarse la voz 


ESPERE, POR FAVOR 


$2] 


1 INTRODUECION 
2 VARICION 

3 - IMPRESION 

4 —- ORDENADO 

5 - FIM DE 


c1i ja?) 


TAREA 
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Introducción recetas: lista. Se ha activado la primera 
voz del menú principal, introducción recetas; esta función 
se articula en tres fases diferentes: en la primera (Lista) se 
introducen el nombre de la receta y la época más 
adecuada del año para su preparación. En esta fase, el 
programa presenta el número de registro (siguiente al 
último escrito) en el que se hará la grabación y se 
presenta un mensaje para llamar la atención del usuario 
en la fase de introducción de los ingredientes necesarios 
para el plato (última fase de la introducción de recetas). 


Introducción recetas: descripción. En la segunda fase 
de la introducción de recetas, el usuario puede introducir 
la descripción de la preparación del plato. 

Esta máscara vídeo también es gestionada mediante la 
data entry y, por tanto, se dispone de los comandos de 
edición ya descritos anteriormente. La descripción de la 
receta se introducirá en el soporte magnético en un 
fichero de datos diferente del que contiene los nombres 
de las recetas, pero que utiliza el mismo puntero usado 
para la identificación del registro del fichero “NOMB”. 


Introducción recetas: composición. La última fase de 
la introducción de recetas es la que corresponde a la 
composición del plato; el usuario ya puede introducir los 
ocho ingredientes principales de la receta que se acaba 
de describir y las cantidades necesarias. Además es 
posible grabar el número de personas previstas con las 
dosis introducidas. 

En esta fase de introducción debe prestarse atención a 
los ingredientes introducidos, puesto que los nombres 
que no existen en el archivo de ingredientes no se 
presentarán. Sin embargo, su cantidad se tendrá en 
cuenta en la fase de cálculo de las calorías del plato, 


Determinación dosis y contenidos. Se ha activado la 
voz 2 del menú principal. Determinados las dosis y los 
contenidos, el programa espera el nombre de la receta 
en la que se quiere hacer una variación de dosis. La 
búsqueda del plato la realiza el programa, incluso sobre 
Una parte del nombre real. En este caso se ha introducido 
la palabra «Hígado» y se desea buscar la receta «Hígado 
a la veneciana». El programa ofrecerá, en la misma 
sucesión en que se han presentado, todas las recetas 
que contengan la palabra «Hígado» en la misma 
posición. 
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Calentar el aceite en una paella 
anadir las cebollas cortadas 
finamente y dejarlas dorar a fuego 
lento. 
Anadir el higado cortado en trozos 
equenos y finos. 
ondimentar con sal y pimienta. 
Anadir medio vaso de vino y 

s diez minutos. 
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Determinación dosis y contenidos: fase de 
presentación. El programa ha identificado entre los 
nombres en el soporte magnético la receta «Hígado a la 
veneciana» y en pantalla presenta los ingredientes 
principales con las cantidades previstas. 

Obsérvese que se presentan dos cantidades sin ningún 
ingrediente a su lado. Esto es debido a que, en la fase de 
introducción, estos nombres no se han encontrado en el 
archivo de los ingredientes. Por ello, el programa calcula 
las calorías totales del plato mediante el contenido 
calórico de cada ingrediente (leído en el archivo de 
ingredientes) y presenta este resultado, 


Determinación dosis y contenidos: fase de cálculo. 
El usuario ha pedido modificar las cantidades de los 
ingredientes, y el programa le pide el nuevo número de 
personas previstas; se ha introducido el número 8 y el 
programa espera que se pulse la tecla RETURN para 
empezar el cálculo de las cantidades de los ingredientes 
y de calorías del plato. 


Como el contenido calórico del plato se expresa en total, 


deberá dividirse por 100 (porque, en este caso, cada 
caloría está expresada para 100 gramos, y la cantidad de 
ingredientes en gramos). Si se desea conocer las calorías 
por persona, después se divide por el número de 
personas. 


Determinación dosis y contenidos: segunda fase de 
presentación. El programa ha terminado el cálculo de las 
nuevas cantidades de ingredientes (necesarias para 8 
personas) y del nuevo total de calorías. Los valores se 
escriben en lugar de los anteriores y se pregunta al 
usuario si desea presentar otra receta o no. Si la 
respuesta es afirmativa, el programa continuará la 
búsqueda de las recetas que contienen la palabra 
«Hígado» al principio del nombre. 


Impresión recetas. La opción 3 del menú principal 
permite tener la impresión, en vídeo o en impresora, de 
las recetas introducidas, que se presentan en la misma 
secuencia de introducción. Para permitir una lectura más 
fácil, el programa prevé una pausa después de haber 
presentado el nombre y la descripción de cada receta. 
Por el contrario, la impresión en papel se hará sin pausas. 


RECETA ECETIA REL 
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CALORIAS TOTALES = 
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19965 
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higado 
aceite 
vino 
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Epoca Mas adecuada = In 
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Impresión recetas: ingredientes. La segunda máscara 
vídeo de la impresión de las recetas presenta el número 
de personas previstas en el momento de la introducción 
de la receta en el archivo y los ingredientes principales 
con las correspondientes cantidades. 

Tal como sucede en la presentación para la opción 
Determinación de dosis y contenidos, los ingredientes 
que no se han encontrado en el archivo no se presentan. 


Cantidad para 04 personas 


CS 

+ UNIDO 
ODNNAODO 
uruLBLIIala 


otra receta (s/n)») ? 


Lista ingredientes. La opción 6 del menú principal, 
Archivo de recetas, permite tener en pantalla la 
presentación de todos los nombres de los platos leceta en E mas adecuada 
introducidos anteriormente. Además se presenta la época 
más adecuada. 

En esta presentación también hay prevista una espera 
cuando las leyendas llegan al fondo de la pantalla, 
impidiendo así que se realice un desfile automático hacia 
arriba de los datos presentados. 


Menú principal. Se ha cargado del soporte magnético el 
programa dedicado al control del peso. Después del 
comando RUN se presenta el menú principal. 

Mediante la tecla f1 se confirma la elección y se activa la 
función seleccionada por el indicador. 

El menú es gestionado con los comandos ya indicados, 
que pueden presentarse al usuario pulsando las teclas > CMI ANA 
CTRL e Y simultáneamente. A ROA 


sion je 


Introducción nuevos datos. El usuario ha activado la voz 
1 del menú, Introducción nuevos datos, y el programa ñ Ediciones Forun Ñ 
efectúa inicialmente un control de la existencia o no del 
fichero de datos (identificado por el nombre introducido). 
En esta fase, el usuario puede decidir si generar o no un 
fichero de datos no creado anteriormente, por lo que es 
informado si ya existe el fichero. 

En la introducción se graban la pesada y la fecha en que PERSONA: MTS 
se ha realizado para controlar después las eventuales 
variaciones en el tiempo. ECO A ri 


PESO = | HHMH O 
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Impresión datos. Se ha activado la voz 2 del menú 
principal, Impresión de los datos, y después de haber 
comprobado la existencia del fichero de datos, el 
programa presenta en pantalla la fecha de la pesada, el 
peso correspondiente a la misma y la variación (positiva o 
negativa) con respecto a la pesada anterior. 

En la pantalla, los datos se presentan en grupos de veinte 
para evitar el desfile vertical; en la impresora, los datos se 
escriben en secuencia y sin pausas. 
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una tecla para continuar 


Gráficos. La foto se refiere a uno de los dos gráficos 

posibles (mensual y anual). En este caso se ha pedido el PERSONA HORTA 
gráfico anual. Las 12 magnitudes a presentar en el gráfico 
serán las medias de los 12 meses y, en este caso, se tiene 
un máximo de 57 kg y un mínimo de 47 kg. La columna 
correspondiente a la magnitud máxima está coloreada en 
rojo, la correspondiente al mínimo en verde y las 
intermedias en gris claro. 

Los gráficos (mensuales y anuales) también pueden 
pedirse en impresora. 
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Recetario 


2 REM PRINCIPAL RRA ACA 
3 POKE 808,225 

14 11$(1)="% PULSAR "Le 1" 

5 U$(2)="Y PULSAR "TY "Lal" 

6 DIMNASCSO>, DD$CSO),CCF(50), 114(50) 

19 DIM 0(25>,CA(25),A$(39),59(5B,2), 15(50) 

20 DIM B$(20),TP(20),L0C20),ND20),0X(20),0Y<20),DX(20),D4(20) 
21 DIM TFC15)>,D$(25),V0$(20),F1$(4),LF(4) 

22 LF(1)=32:LF(2)=70:LF(3)=51:LF(9)=12 

23 FISC1)="NOMB":FI$(2)="DESC":FI$(3)="COMP":FI$(4)="INGR" 

24 Blg=" ":PDs=".":AS$="-":N3$="4":SU$="M":GIUS="N":HOL="09":SLs="/" 
25 US$=CHR$(133):NV=7:XC=7:WC=6:5Z=2:POKE £50, 128 

26 PRINTHOS:GOSUB1309:PRINTHOS : PRINTCHR$(142):REM Ak MENILI” dok 
27? IF 0PZ=7 THEN SYS64738 

30 GOSUB20008 

33 POKE 53281,6 

34 POKES3290, 14 

35 FOR I=1 TO 15:READ TFCI) 

40 NEXTI 

100 REM 

120 ON OPZ O0SUB 8000,5490, 18000, 16000, 12000,21009 

130 REM 

158 GOTO 26 

ZO RENA dl Md ll ll ll e 

A 

1301 REM * MENU PRINCIPAL * 

1302 REN mabel dl lle ld ll 

1303 LWV=-1:POKES3281,6:P0OKES3280,6 

1007 asa MENU ":0PZ=0:WO$(OPZ)=" "Tha B4":GOSUB 79000 


1312 REM 
1315 55=53248 : POKESS+21,1:POKE2045, 13 . 
1316 RESTORE 
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FOR 1=0 TO 62:READA:POKE832+1,1 
HNEXTI 


POKES5+39, 1 

C1=58:C2=111 

GOSUB 1363 

GOSUB 1396 

GET OPZ$:IF OPZ$="" THEN 1327 

IF OPZ$=G1U$ THEN C2=C2+16:0P2=0PZ+1 :GOSUB1363 
IF OPZ$=SU$ THEN TR OPZ=0PZ-1*G0SUB1363 
IF OPZ$=U5$ THEN 1381 

IF NEC THEN GOSUB 1456 :G0TD1995 
GOTO 1327 

REM Ki 

IF C2<111 THEN C2=C2+16:0P2=0P2+1 : RETURN 
IF 027287 THEN C2=C2-16:0PZ=0P2-1 : RETURN 
POKESS,C1 

POKESS+1,C2 

RETURN 

REM 

X=xXC 

NaDPZRSZ+YC 

GOSUB 11000 

PRINT"Ba"YO0s$(OPZ> 

FOR T=1 TO 1090:NEXTT 

O »PEEK(S5+21)AND254 


FOR J=1 TO NV:READ YO$CJ>:NEXTJ 
FEA A e 

FOR TI=1 TO NY 

X=XC 4 

YT IMSZA YO 

GOSUB1 1060 

ea VOSCII> 

NEXT 11 

RETURN 
DATAO,0,6,0,96,0,0,144,0,3,32,0 
DATR4,64,0,8,143,252,17,112,2,224,129, 252 
DATAO,63,0,0,65,6,0,63,0,0,31,8 
DATAO,33,0,0,31,0,224,63,0,16,81,0 
DATA15,38,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA"1- )NTRODUCCION RECETAS" 
DATA"2- “ETERMINACION DOSIS-CONTENIDOS" 
DATA"3- AMPRIME RECETAS " 

DATA"4- ARCHIVO INGREDIENTES" 
DATA"S- |ENERACION DEL SISTEMA" 
DATA"6- ARCHIVO LISTA RECETAS " 
DATA"9- -—IN DE TAREA" 

REMO AYUDA MENU HAIR 
PRINTCHR$(147):PRINTCHR$(14) 
POKESS, 255 

POKESS+1,115 

POKESS+39,6 

POKESS+40, 6 

FPOKESS+41,6 
POKESS+21,7:POKE2040, 13 
POKE2641,14:POKE2042,15 
POKESS+29,4 > 
FORN=0T062 : READA : POKES32+N, Q 

NEXTHN 

FORN=8T062 : READO : POKES96+H, ( 

NEXTN 


FORN=6T062 : READO : POKE966+N, Q 

NEXTN 

POKESS+39, 1 

POKESS5+40,1 

POKESS+41,1 

POKE S3281,6 

PRINT —————————— | Aá AAA 
FOR 90 TO 15'PRINT'"MI 

NEXT 

ES á-_ í A _—_— _—— _ _ 
PRINTCHR$C19) :PRINTTAEC2) "MARIMBA A TO LON" 
POKESS+2,255'POKESS+3, 145 

POKESS+4, 245 

POKESS+5, 189 

PRINT"MMABNDESPLAZA ABAJO: * 

PRINT"NMABIDESPLAZA ARRIBA: " 

PRINT"MIBBINTRODUCIR OPCION ELEGIDA: " 
A OC A E E IES 
GET R$: 1FR$=""THENIS13 

POKESS+39,5PRINT"01": RETURN 

DATA3, 255, 192, 12,0,32,16,16,16,32,56,8,32. 108,8 
DATAG64,40,4,64,40,4,64,0,4,93,206,228,581,72,164 
DATAS1, 206, 228,81,66,164,93,46,142,64,0,4 
DATR64,40,4,64,40,4,32,103,8,392,56,8,16,16,16 
DATA12,6,32,3,255,192 

DATAS, 255, 192,12,6,32,16,32,16,32,120,8,32,192:8 
DATR64, 120,4,64,32,94,64,0,4,93,206,228,81,72,164 * 
DATAS1,206,228,81,66,164,93,46,148,64,0,4,64,16,4 


DATAE4, 120,4,32,12,8,32,120,8,16,16,16,12,0,32,3,255, 192 


DATAO,4,0,7,255,224,24,0,24,96,0,6,128,4,1,123,1,129 
DATA134,131,123,132,2,129,132,0,129,142,5,129 S 
DATA132,0,129,132,0,129,132,0,129,128,0,1,96,0,6 
DATA24,0,24,7,255,224,0,0,0,0,0,0,0,0,0-0,0,0 

REM FINE DEL MENU PRINCIPALE 


REM 
REM 4 PRESENTA MASCARA Aolok 


REM 
FOR J=1 TO NUC 
As="" 


X=DACJ) ¿Y=DY CJ) GOSUB1 1006: PRINT"A "DSC J) 
IF TPCJ<05 AND TPCJ>)<54 THEN 2660 
ASCACIJA :Y=E VJ) :GOSUB1 1000 :PRINT"A"¿BS$CJ) 
GOTO 2130 

AL ARA o LEER TP(J)=1 OR TP(J)=2 THEN CS$=M5$:G0TO2078 
Cá$= 

FOR I=1 TO Ni-N2-1:A$=A$+C$ 

NEXTI 

IF N2=0 THEN AS=A$+C$:G60TO0 2095 
AS=A$+PDS 

FOR I=1 TO N2:A$=A++"9" 

NEXTI 

X=CXCJ)¿Y=CYCJ):GOSUB 11090 

PRINT "MAS; Un" 

BJ ="" 

FOR K=1 TO Ni-N2-1 

BS(J)=BGCJ4NSS 

NEXT K 

IF H2=0 THEN BS(J>=BS$(J)+NS$:G0TO 2130 
BSCJ)=BSCI)+PDS 
FORK=1TONZ2 : B$(J)=BS$(J>+NS$ 

NEXTK 


REM 
REM 4% DATA ENTRY 44 
REM 


REM 

J=1 

REM 

NC=J 

ARCXUNC) 

M=CW (NC) 

CCu1 

GUSUB 3240 

IF FS=9 THEN RETURN 

IF FS=B THEN 3100 

IF FS>4 THEN 3210 

GOTO 3120 

REM CARACTER 

J=J+1:1F JÓNUC THEN 3030 

GOTO 3640 

ON FS GOTO 3130,3150,3170,3190 
1F J>1 THEN J=J-1:G0T0 3040 
FS=B: J=NUC:GOTO 3048 

IF JXNUC THEN J=J+1:G0TO 3040 


0 FS=0: 


GOTO 3838 
IF COXLECI) THEN S=1:CC=CC+1:%=X+1:G0SUB 11090:G0T0 3060 
FS=4:GOTO 3100 
1F CC>1 THEN S=-1:C0=CC-1:X=2-1 :GOSUB11000:G0T0 3068 
Fs=0:GOTO 3035 
REM 
IF FS>8 THEN FS=0:G0T0O 3060 
IF FS=8 THEN FS=8:G0T0 3100 
RETURN 
REM 
BE) ARK LECTURA DE 1 CAMPO me 
RE 


FS=9 

IF TPCNC>=4 THEN RETURN 

IF TP(NC>=2 THEN GOSUE 9000: RETURN 

1F MIDSCBF(NCI,CC, 1)=PDS THENX=X+S:CC=CC+S 
GOSUB 11000 

GET AS:IF A$<>"" THEN 33389 
G05UB11000:PRINT"aha"; :GOSUB11000:PRINT"2" ¿MIDICBECNC) CC, 1); 
FOR T=1 TO 5O:NEXTT 

GOTO 3390 
TFASCCA$)=190RASCUAS)=200RASCCASI=1470RASCCAS)=148 ORASCCAS)=44 THEN 3330 
PRINT"Ma"; As; 

CA=ASCCUAS) 

FOR I=i TO 15 

IF TFCI=CA THEN FS=1:1=15:605UB3630: RETURN 
IF FS=9 THEN RETURN 

NEXTI 

IF TPXNC><21 THEN 3450 á 
TF CA=45 OR CA=46 DRCCA>=4BANDCA<C=57)THEN3420 
GOTO 3330 

IF CH<946 THEN3450 

BOSUB 4270 

IF SHP=1 THEN 3410 

5=1:G0SUB 3520 

IF CC=SLC(ONC) THEN RETURN 

aid 3319 


En 
85) dk TRASFERENCIA AL BUFFER mk 


IF CC=1 THEN SN$="":GOTO 3590 
SN$=LEFTSCBSONC),LC=1) 

IF CC=SLC<(NC) THEN DES$="":GOTOZ610 
N=LC<NCI=CC 

DES$=R IGHT$CBSINC>,N) 
BSCNCI)=SNS+A$+DES 

RETURN 

REM 
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REM Ai COMANDOS 4 
REM 


IF FS>5 THEN 3710 

RETURN 

1F FS=9 THEN GOSUE 130600: RETURN 
IF FS=8 THEN GOSUE 4480: RETURN 
IF FS<8 THEN RETURN 

ON FS-9 GOSUB 3744,3910 
RETURN 

REn 

REM 4 INSERCION dk 

REM 

IF CO=LCCONCITHEN RETURN 

IF CC=1 THEN SN$="":50T03300 
SH$=LEFTS$CBS(NC),CO-1) 
N=LC(NCI=CC+1 
DESSRIGHTECBFCONCI ¿NA 

C$=BLS$ 

AS=SN$+C$+DE$ 
BSC(NCI=LEFTSCAS,LOCNC)> 

RAZX 

Wy=w 

X=CACNCI 5 =CWONC) :GOSUB 11080 
X=XAX 

AS 

REM A 

PRINT BS$(NC>:S=-1 

IF RIGHTSCBS$(NC>,1)=PDS THEN 3780 
RETURN 


REM 

ea ST 
REM 

IF TPCONC)<O1 THEN 3950 


IF MIDSCB$CNC),2,1)=PDS AND CC=1 THEN RETURN 


IF CC<1 THEN RETURN 

IF CCBLC(NC) THEN DES$="":GOTO 3980 
NeLC(NCI=CC 

DES=RIGHTSCBFINCI,N7 
SN$=LEFT$(B$(NC>,CC=1) 


IF TPCONCI=1 DR TP(NC)=2 THEN C$=NS$:GOTO 4010 


C$=A5$ 

BS (NC)=SN$+DE$+C$ 

XA=X 

Yy=y 

XRCXCUNC) :W=CW CONC) :GOSUB 11900 
X=XR 


ayy 

PRINT BS$(NC>:S=1 ¿RETURN 

REM OO AL INERIDOS ARNO 
IF LC(NC>=1 THEN RETURN 
Ni=LC(NCI=CC+1 

IF CC=i THEN BS$(NC>="":G0T04100 
BSCNCISLEFTSCBSCNC)/CC=1) 

1F TP(NC)=1 OR TPONC)=2 THEN 4150 
FOR I=1 TO Ni 

ES(NC)=BS(NC)+BLG 

NEXT 1 


GOTO 4198 

FOR I=1 TO Ni 
BS(NC)ACHR$(32)+B$ (NC) 
NEXT 1 


IF RIGHTS$CBS(NC>,1)=PD3S THEN BS(NC>=BLS+LEFTS(BSCNC), LOCNCI=1) 


X=CXUNC) :W=CW CONC) :GOSUB 11000 
a) B$(NC) ¿RETURN - 


SWP=0 
IF CC=1 OR CCSLC(NC) THEN SMP=1:RETURN 
FOR l=1 TO LC<NC) 


IF MIDSCBSC(NC),1,1)=BL$ THEN 1I=LCCNC):SHP=1 RETURN 


NEXT I:RETURN 
REM 


REM 
Ai JO DETERMINACIÓN DOSIS mk 
1=9 


IF 66<2 THEN G6=2:RG=1:G0SUB 6048 
IF R$="N"ORR$="/"THEN R$="": RETURN 
OZ=0PZ : GOSUB?7006 

MX=VAL <NN$CO)) 


X=2:Y=8:G05UB11000:PRINT"HCINTRODUCIR 01 FARA BUSQUEDA EN NOMBRE >" 
x=7:9=7: diera ¿PRINT"BLÚMERO C1-"5Mx3"2";5 


IF RIMA THEN 

IF RI<i THEN 5016 

IF RIZO THEN NKeRI:MX=R1:GOTO 5031 
NUC=1 :GOSUB 2000 

GOSUB 3000 


IF FS=6 OR FS=9 E 50SUB7000 : 60TOSBZ0 
IF FS=7 THEN RETURI 
ASABSC(1):NK=1 

FOR IR=NK TO MX 
RAS=NN$C IR) 

IF RIZO THEN 5060 
CS=LEFTSCARS$, 30) :GOSUB1S000 
IF Kí=1 OR Ki=2 THEN 5068 
GOTO 5270 

PRINT HOS$ 

N$=LEFTSCAAS, 30) 
11$=RIGHTSCAAS, 2) 


| "MU ¿RI? IFRISOTHENSOZO 


X=2:Y=2:G0SUB11000:PRINT"WL"—14 : MANS 
Y=Y+2:005UB11000:PRINT"ENPOCA MAS ADECUADA = 4;m$ 
Ya y+4 

RAS$=CC$C IR) 

B$(1>=LEFTSCRAAS, 2) 


2-3 

FORJ=2TO16STEP2 

L26+6 

BS<J>=M1DS(AR$, 6,2): REM PUNTERO INGREDIENTE 
BSC(J+1)=M1DSCARS,0+2,4):REM CANTIDAD PREVISTA 
L=VAL(B$(J) 

BCJ+1)=VALCBFCI+1)) 

IF L=0 THEN 5145 

IN$=II$CL) 

BS(J>=LEFTSC INS, 8): CACI+1)=VALCMIDSCINS, 9, 4)) :GOTOS158 


232: V=W+2:G0SUB11000:PRINT"3ANUMERO DE PERSONAS =";B$(1) 
Y=Y+1:G05UB11000:PRINT"MINGREDIENTES : ANTIDAD a" 
FOR JJ=2 TO 165TEP2:X=16:Y=Y+1:G0SUB1 1990 
Qls$=" 6" 
IF B$(JJ+1)="4844" THEN BS(JJ+17="  p" 
IF VALCB$(JJ+1))79999 THEN (li$="G" 
PRINTESCJJ);5SPOCSI)BECIJJ+ 15015: TTETTAHOR CITA LI MCACII+1 02) NEXTJJ 
X=10:Y=Y+2:G0SUB11000:PRINT"BHALS $0 |FléL"O = 4; INTCTT) 
X=5:Y=22:G0SUB11000: INPUT"3MODIFICACION CANTIDAD (SI/NO) "¿R$ 
IF R$="NO" THEN 5255 
IF R$<>"SI" THEN 5175 
X=2:=22:G0SUB11000:PRINT"M A 
X=10:Y=22:G0SUB11000: INPUT "BEHUANTAS PERSONAS "NR 
IF NR<=8 GOTOS190 
REM -- CALCULOS -- 
NP=WALCB$C1)) 
FOKE646, 13 
FOR JR=3 TO 17 STEPZ 
UCIRIENRACCCJRO ZNPA 
NEXT JR 
NR$=STRS(NR)+1F NR<10 THEN NR$="0"+RIGHT$C(NRS, 1) 
ión 
FOR JR=3 TO 17STEP2 
eS THEN OCJR3=6JR)/1000:01$="6":G0T0 5227 
Zn Gr 
O 
REM 
IF L9=M THEN 5235 
IF L9<B THEN O$eMIDSCOS$, 2,4) 60105235 
FORK9=1TOL9:0$=CHR$(32)+014 
NEXTK9 
Xx=29:Y=+1:005UB1 1000: PRINTOS;01$ 
NEXTIR 
TT=0 
FOR JR=3 TO 17STEP2 
TTSTT+COCIJRIRCACIRIO 


NEXT JR 

X=27:W=Y+2:G0SUB11000:PRINT" sis 

%X=27 :GOSUB11000:PRINTINTCTT) 

X=2:'Y=22:G05UB11000:PRINT" sl 
X=10:Y=23:60SUB11000: INPUT"OTRA RECETA (S/N) "ALS 

IF AL$="N" THEN IR=MX:GO0TO 5270 

IF AL$<>"S" THEN 5260 

REM 


NEXT IR 

PRINTHOS 

%=3:Y=21:00SUB11000:PRINT"MPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:WAIT198, 1: RETURN 

RETURN: REM nano 


REM 
REM Adol GESTIONE CINTA sk 
REM 


PRINTHOS : PRINTCHR$(14):R$="" 
%X=2:Y=17:G0SUB11000:PRINT"MOSICIONAR LA CINTA DE DATOS" 
Y=21:008UB11008:PRINT"B ECHO? CawRRCONTINUA, aMAEVUELVE AL MENU)" 
GETR$: IFR$=""THENGO30 

IFR$="N"ORR$=" /"THENRETURN 

IFR$<>"S"ANDR$<>"6"THENGO3O 

X=2:Y=19:G0SUB11000:PRINT" a" ;W$CRG) 

X=0: Y=0 : GOSUB11000:PRINT"W"; 

ONRGGOTO6200,6400 

AA 


REN LECTURA DATOS 
OPENL/ Lo 9, "NOMB" 
ro ER INPUTH 1 ¿NN$C1) :NEXTI 


LOSE1 
OPEN, 1,8, "DESC" 
FORI=1T050: INPUT%1,DD$C1)>:NEXTI 
CLOSi ne 
OPEN1, 1,0, "COMP" 
FORI=1T050: INPUTH1.CC$C1):NEXTI 
CLOSE1 
OPEN1, 1,0, "INGR" 
FORI=0T0S0 : INPUTH1, 11$C1):NEXTI 
CLOSE1 :PRINTHOS 
RETURN 


REI 
REM ESCRITURA DATOS 
RE 


1927: 


OPEN1,1,1,"NOMB" 
FORI=6T0S56:PRINTH1,NN$C(1):NEXTI 
CLOSE1 

OPEN1,1,1, "DESC" 
FORI=1T050:PRINTH1,DDSC(1):NEXTI 
CLOSE1 , 
OPEN1,1,1,"COMP" 
FORI=1T050:PRINTH1,CC$C1I):NEXTI 
CLOSE1 

OPEN1,1,1,"INGR" 
FORI=90TOSO:PRINTH1, 11801): NEXTI 
CLOSE1 :PRINTHOS 

RETURN 

REM 

REM 

REM dol CARGA LOS DATOS em 

IF 0PZ=2 THEN VOS$(2)=LEFTSCYO$(2>,22)+" " 
LeLEN(YOSCOPZ)>-3:L$=RIGHTS(VOSCOPZ>,L): IF OPZ=0 THEN 7005 
US OZ "+STRECOPZI+" " 


P=C30-L)/2:P5="":FORK=1TOP:Pg=PS+" ":NEXT K 

PRINT"8"; PRINTOHR$C14) 

PRINT "bl Br. 1.0. —DICIONES -ORÚM, 4.4." 
PRINT"MA ¿US "e E 
PRINT "DI SHA 

IF 0P2=8 THEN PRINT"35 ma"; :Pg=PS+CHR$(32) 


PRINTMA"¡Ls; "¡PS 

PRINT"IIBAAD 0] 
%=1:Y=22:G0SUB11009:PRINT"M 

EcSINROI USB ABRO PRINTA A! SA a da 


IF OP2=0 THEN RETURN 
REM ñ 


ON OZ GOTO 7842,7642,7110,7110,7110,7044,7046,7048 
LV=15:GOSUB 26000:NUC=2:GOTO 7090 

LV=31:G0SUB 20900:NUC=1:G0TO 7090 

LV=39: GOSUB20940 : NUC=17 :G0T07090 

LV=175:G0SUB20000 :NUC=4:G0TO07098 

FOR I=1 TO NUC:RERD D$C1>:NEXTI 


FOR ll TO NUC:READ TPCI))LOCI))NDCIY DIC IO DCI OCIO CELO 


REM 

NEXT 1 

RETURN 

REM_-- CONTROL FIN FICHEROS =- 

IF RESNRM THEN 7520 

RETURN 

PRINT HO$ 

2%=9:Y=10:G0SUB 11000 

PRINT"EL FICHERO DATOS ESTA AGOTADO" 


432: W=Y45'005UB11000'PRINT"PULSE UNA TECLA PARA VOLYER AL MENU" 


POKE 198,0:WAIT 198,1:RUN 
REM 


REM 
a Mk INTRODUCCIÓN RECETAS *k 


TFG6<>2THENG6=2:RG=1:G0SUB 6998 

IF R$="N" OR R$="/" THEN R$="":RETURN 
DZ=0PZ:GOSUB 7000 
RE=VAL(NNSCO) > ¿REM ULTIMO REGISTRO 
NRhM=50 : GOSUB: 7599 
%=7:=5:GOSUB11000:PRINT"aL, els M-ECETA UM. :"¡RE 
4=2:=18:G60SUB11000:PRINT" 7/3 17/,M COMPROBAR QUE LOS" 
Y=Y+1:G0SUB11000:PRINT" INGREDIENTES SE HAN" 
Y=w+1:G0SUB1 1690: PRINT" INTRODUCIDO YA EN EL ARCHIVO" 
GOSUE 2000:REM kk MASCARA * 
GOSUB 3000 :REM * DATA ENTRY + 

IF ,FS=6 OR FS=9 THEN GOSUB7000:G0UTO8009 

E FS=7 THEN RETURN 

En 


A$=B$(1> 

IF RE=1 THEN K1=0:60T08036 

MA=RE :GOSUB14000 

IF K1=8 THEN 28045 

PRINTHOS:X=2:W=10:G0SUB11000:PRINT"EL PLATO : M'";BS$c1> 
PRINT"34 WA ESTA REGISTRADO EN EL FICHERO" 
X=13:Y=19:G03UB11000:PRINT"MIFULSE UNA TECLA" 
POKE1983,8:dAIT199,1:PRINTHOS :GOTOS003 

HNSCREI=BGC1)+B (2) 

REM -- DESCRIPCION RECETA -- 

PRINT HO$:0Z=0Z+5 

X=7:Y=5: GOSUB11600:PRINT"AT8-A HAT ALECETA VU. :"¡RE 
GOSUB 7009 

D$(2=D$(1): TP C29=TPC1):LO(29=LCC(1):NDC2)=ND( 1) :0X(2)=CXC1) 
CYc2=CY 1743 

DX(29=DX(1):DY(2)=DY<1) 
NUC=2:G0SUB 2490:GOSUB 3000 
IF FS=6 OR FS=9 THEN 8067 
a THEN RETURN 

RE 


HAS=BS(1>+B$(2)+B$(3) 

DD$CRE>=AAS 

REM -- COMPOSICION RECETA -- 

PRINT HOS$:0Z=0Z+1 

2=7:Y25: GOSUB11000:PRINT"2PXTO+=5T/ AECETA UM. "¡RE 
%=11:w=9:G05UB11000:PRINT"p/1 7/17 ANT," 
GOSUB 7008 

GOSUB 2000 :GOSUB 3098 

IF. FS=6 OR FS=9 THEN 8117 

IF FS=? THENRETURN 

IF VALCB$C1)<10 THEN ESC1)="0"+RIGHTSCBS$C1),1) 


8127 MM=VALCIIGCG)) 

8128 FOR L=1 TO Mi 

8139 RAS=LEFTS(11$(L>,8) 

8131 K3=2 

8132 IF B$(K3)=AA$ THEN B$(K3)=STR$C(L>:GOTO 8135 

8134 K3=K3+2: IF K3=18 THEN 8136 

8135 GOTO 8132 

8136 NEXT L 

8137 FOR K4=2T016STEP2 

8138 IFVALCB$CK4)>)=0THENBS(K4)="08" 

8139 NEXT K4 

8141 FOR L=2 TO 16 STEP 2 

8142 IF BS$(L)="00" THEN 8144 

8143 L9=WAL(BS$(L)):1F L9C10 THEN B$(L)="9"+RIGHTSCBFCL), 1) 
8144 IF LENCBS$(L))=3 THEN BS$(L>=RIGHTS(BSCL> 2) 

8145 NEXT L 

B169 AR$="" 

8170 FOR K=i TO 17:RAS=ARS+B$C(K) : NEXTK 

8185 CCS$<(RE>=AAS 

8209 REM - ACTUALIZA PUNTERO REGISTROS - 

8201 RE=RE+1 

8202 RAS=STR$CRE> 

8203 L9=32-LENCAAS> 

8204 FOR K=1 TO L9:AAS$=ARS+CHR$(35) : NEXTK 

8215 NN$(0)=AAS 

8308 REM Wk FIN INTRODUCCION xk 

8305 PRINT HO$ 

8310 x=3:W=13:G00SUB11009:PRINT'"E 1-7 sir 

8315 X=5:Y=Y+3;0605UB11000:PRINT"BCALEOS: M-4 AT 
6320 X=5:Y=+2:G0SUB11000:PRINT"BXEON (AA IAS AL" 
8325 X=16:Y=21:G0SUB11000: INPUT "AL : "¡R$ 

8330 R=VAL(R$>:1F RC1 OR R>2 THEN 3325 ud 
8332 IFOPZ=4THENRETURN :REM INGREDIENTES 

8335 1F R=2 THEN RG=2:GOSUB 6000:R$="":RETURN 

8340 PRINTHOS:GOTO 8084 


BIO REM == 
9000 REM 

39061 REM RUTINA CALCULO 

9002 RETURN 


9159 REM RUTINA ERROR 
9152 X=9:Y=20:00SUB11009:PRINT" MET Z=Po 7 SALTA r/" 
9154 FOR T=1 TO 50B:NEXT T 
9156 X=9:Y=20:60SUB11000:PRINT" "RETURN 
10098 a ANO DATA en dedo: 

El 


10010 DATA 145,17,29,157,140,133,136,13,25,134,135,9,9,0,0 
10013 REM AMAIA PZA. CA 
10015 DATA"MAN LOLA") "ETPOCA MAS ADECUADA" 
10016 DATA3, 30, BOO a 12 
10017 DATA3,2,0,5,15,25,15 
10020 REM ANNORMAA oP2eS HORARIA AAN 
10021 DATA" " 
10022 DATA3,35,0,3,9,3,9 
10030 REM HARO Z=1 O NOOO 
10031 DATA" NUMERO DE PERSONAS PREVISTAS" 
10032 DATA" NM 1,920,099) MMS AG MAS M8, 
10034 DATA1,2,0,6,7,34,7 
10035 DATA3,8,6,11,11,14,11 
10036 DATA1,4,0,11,11,26,11 
10037 DATA3,8,0,11,12,14,12 
10038 DATA1,4,0,11,12,26,12 
10041 DATA3,8,8,11,13,14,13 
10042 DATA1,4,0,11,13,26,13 
10043 DATA3,8,0,11,14,14,14 
10644 DATA1,4,0,11,14,26,14 
10045 DATA3,8,0,11,15,14,15 
10046 DATA1,4,0,11,15,26,15 
10047 DATA3,8,0,11,16,14,16 
10048 DATA1,4,0,11,16,26,16 y 
10043 DATA3,8,0,11,17,14,17 
10050 DATA1,4,0,11,17,26,17 
10051 DATA3,8,0,11,18,14,18 
10052 IS 
R 


10057 REM === 
10058 REM HRRRRRR OP ZO AO: 
19859 DATA" ATA IBAN IATA TM A 


10060 DATA4,2,0,7, 9, 23,9 

10961 DATA3,8,0,7,12,23,12 

10062 DATA4,4,0,7,14,23,15 

10063 DATR1,4,0,7,15,23,15 

10200 PENA oo A ARO 
Ri 


EM 
11001 REM _Axkk POSICIONADO EN Xy Y dk 
11005 POKE 211,% 
11010 POKE 214,%Y 
11015 Sys5e732 
11020 RETURN 


REM 
12001 Em AH GENERACION SISTEMA se 


12005 GOSUE 79040 

12010 2=3:Y=5:50SUB11000:PRINT"GENERACION EN CURSO": Y=Y+2: GOSUB11000 
12615 INPUT"CONTINUO <SI/HO) MRE 

12020 IF R$="NO" THEN RETURN 

12025 1F R$<>"SI" THEN 12610 

12030 X=3:Y=10:50SUB11000:PRINT"2ESTE PROGRAMA PREVE UN MAXIMO" 
12035 =5428:W=7+2:G0SUB11000:PRINT"DE 0% RECETAS 

12040 X=%+4:W=Y+2:GOSUB11000:PRINT" M0 INGREDIENTES” 

12045 *=5:w=18:G0SUB11000:PRINT"AL FINAL DE ESTA FUNCION" 


1929 


£=1:w=+1 :GOSUB11006:PRINT"DEBE AS LA VOZ WE DEL MENU" 


K=11:Y=4+2:G05UB11000:PRINT" 
ARg="" 

FOR GE=1 TO 4 

IF GE=1 OR GE=4 THEN AA$="1" 
ARSS" 

FOR Kal TO LECOE), 
ARSARE+"4" NEX 
ONGEGOSUB12077, 12088, 12083, 1 
507012898 


MOT T- A 


¿GOTO 12078 


2085 


FORI=8TOSO : NN$CI)=AAS : NEXT : RETURN 
FORI=1T050: DD$C1)=AA$ : NEXT : RETURN 
FORI=1T050:CC$(1)=AR$: NEXT: RETURN 
FORI=9T0SB: 11$(1)=AR$ : NEXT : RETURN 


NEXT GE 

RG=2 :G0SUB6OD 
IFR$="N"ORR$="/"THENR$="" RE 
PRINT HO$ 


TURN 


X=3:Y=5:GOSUB 11900 :PRINT"h=a— 1-0 7 AO 1777. 


X=2:Y=Y+15:G0SUB110900:PRINT" 
POKE 198,0:WAIT 198,1 
RETURN 

PEA A AA MAA 
ps RRA AYUDA ad 

R 


POKE 53280,6:PRINTHOS; : ERIN 
PRINTTAB<S)"MACRSR RIGHT 
PRINTTAB<S>) "MACESR LEFT 
PRINTTABCS) "MACRSR UP 
PRINTTABCS) "MACRSR DOLN 
PRINTTABCS> "MA F1” 
PRINTTABCS) "Mah F3” 
PRINTTABCOS) "MA FS” 
PRINTTABOS) "MA FF?” 
PRINTTABCS) "MA FO” 

pt INTTABCS)"MACTRL+Y 

R 


PRINTTABCS) "MARE TURN 


DATO 
MAPULSE UNA TECLA PARA VOLVER AL MENU * 


Ao: 


CHR$< 142); 
¡MUEVE A DERECHA  " 


i : MUEVE A IZQUIERDA" 


Ei MUEVE ARRIBA ' 
si MUEVE ABAJO E 
: E ANULACION la 
: 4 INSERCIÓN » 
: Ei BORRADO de 


: E VUELTA AL MENU " 
: E INTRODUCCION » 
: E AYUDA ds 


: 3L ALINEAR ia 


PRINTTABC<6)"MAPULSE UNA TECLA PARA VOLVER" 


GETR$: IFR$=""THEN13066 

PRINT HOS:PRINTCHR$(14) :POKE 
RETURN 

REM 

REM 4% BUSQUEDA 4% 
FORI=1T0Mx 

CSSLEFTS(NNSCI), 30) 

GOSUB 15080 :REM COMPARACION 
IF Ki=0 THEN 14031 


Ri 

pta * COMPARACION ENTRE CADE! 
REM 

IF AS=C$ THEN Ki=2:RETURN 
K=0 


FOR JJ=1 TO 38 
C1$=MIDS$CAS,JJ,1) 

IF C1$=CHR$(32) OR C1$=CHR$< 
C24=MID$(C$,JJ,1) 

IF Ci$=C2% THEN K=k+1 

NEXT JJ F 

IF K=30 THEN K1=1:G0TO 15035 
K1=0 

REM 

RETURN 

REM eric in ninia 
REM -- ARCHIVO INGREDIENTES 
0Z=0PZ :GOSUB7009 
X=12:Y=8:605UB11000:PRINT" m1 
Y=+2:G05UB11000:PRINT"H2 - 
Y=+2:G0SUB11000:PRINT"2M3 - 
Y=Y+2:GOSUB11000:PRINT" m4 - 
w=Y+2:G0SUB11000:PRINT"M5 - 
X=16:Y=Y+3:G05UB11000:PRINT" 


GETAS: IFA$=""THENGOSUB11000:PRINT" gu"; 


53280,14 


NAS *k 


35) THEN K=k+1:G0TO 15027 


AA LAS 
MAS 
ANO" 
AT" 

May — 109" 
MIELIJA";:X=22 


ASVAL CAS) : IFACIORA>STHEN16005 


IF A=S THEN RETURN 


IFG6<>2THENG6=2:RG=1 : GOSUB6UA 


IF R$="N" OR R$="/" THEN R$= 


E] 
"": RETURN 


ON A GOSUB 16058, 16160, 16200, 16400 


PRINTHOS: GOTO16805 
REM L63as INTRODUCCION ===-- 
4 


RE=VALC11$(0)):REM REGISTRO 
MRM=50 : GOSUB 7509 
PRINTHOS : GOSUB7900 


DISPONIBLE 


B$(1)=STRSCRE) :F4="44" : GOSUB2000 


GOSUB3008 

IF F35=6 OR FS=9- THEN 16058 
IF FS=7? THENRETURN 
AAS=ESC2)+B$(4)+F$ 
1IS$CRE)=ARS 

RE=RE+1 

11$(0)=STRSCRE> 

GUSUESIM! 


a 
IFR=2THENRG=2 : GOSUB6900 : RETURN 


:GOSUB11000:PRINT" ";: 


16085 
16099 
16091 
16100 
16108 


16110 02= 


16112 
16114 
16116 
16118 
16120 
16126 
16127 
16128 
16130 
16132 
16134 
16138 
16140 
16142 
16144 
16146 
16148 
16150 
16208 
16202 
16212 
16220 
16230 
16240 


16400 REM 


16405 
16410 
16424 
16426 
16430 
16432 
16433 
16436 
16437 
16438 
16440 
16442 
16443 
16444 
16443 
16446 
16447 
16448 
16450 
16451 
16452 
16453 
16454 
16456 
16460 
16462 
16464 
16466 
16467 
16468 
16470 
16472 
16474 
16475 
16476 
16498 
16483 
16498 
16492 


16506 
16519 


16520 
16522 


IF R$="N" OR R$="7" THEN RETURN 

GOTO 16857 

REM oro 

REM -—--- VARIACIÓN ==--= 

ME=VALCIIGCO)) 

OPZ : PRINTHOS : GOSUB7890 
X=2:W=10:G0SUB11090:PRINT" LT TL IATA 
Y=+2:GOSUB11000:PRINT"S 1717 A A 
PRINT "C1/"MX-15: INPUT") "GRE 

IF RE=>MX OR RECI THEN RETURN 

PRINTHOS:0Z=02+4 :GOSUB7008: TP (2)=5:TP(4)25 
B$(1)=STRSCRE) : BFC2)=LEFTSCIIGCRE),8) :BSC4I=MIDSCIIGCRE), 9, 4) 
FSenaao 

GOSUB2000 : GOSUB3494 

IF FS=6 OR FS=9 THEN 16126 

IF FS=7 THEN RETURN 

HAS=ESC2I+BFCA FS 

LISCRE)=HAS 

PRINTHOS: X=2:Y=19:G0SUB11000:PRINT"OTRA VARIACIÓN <SIZNO>"; 
IF. R$="NO" THEN RG=2:G0SUB 6000: RETURN 

IF R$C>"SI" THEN 16149 

GOTO 16118 


PRINTHOS 

H=YALC(IIGF(0))=1 

FOR I=1 TO N:ISC1>=1:NEXT 1 
GOTO 16490 


O ORDENADO -----= 

PRINTHOS : GOSUB 7000 
2=1B:Y=12:G0SUB11000:PRINT"M"/0T 77 00" 
N=VAL(11$(6)) 

FOR RE=1 TO N-1 

AAS=II$CRE) 

ASCRE)=LEFTSCARS, 8) 

NEXT RE 


FOR I=1 TO N 

1S(1)=1:NEXT 1 

11=1 

J1=5N 

1=11'J=J1 

S=-1 

A1$=ASCISCID) 

B1$=A$CISCJI) 

IF M1$<=B1$ THEN 16454 

W=1S(1> 

ISC) =1ISCJ> 

1S(J3=Y 

S=SON(=S) 

EA THEN 1=1+1:GOTO 16460 

IF I<J THEN 16446 

IF 1+1>J1 THEN 16468 

P=P+1 

SHP,1)=1+1 

S9P,2=J1 

Ji=1-1 

IF 11<J1 THEN 16444 

IF P=0 THEN 16480 

11=89(P,1):J1=389(P,2) 

p=P-1 

GOTO 16444 

REM -- FIN ORDENADO -- 

PRINT HOS 

X=10:Y=10'G0SUB11000:PRINT"BALEDN IMPRESION EN VIDEO" 
Y=+2:G0SUB11000:PRINT“BCAZEDE IMPRESION EN PAPEL" 
Y=Y+2:00SUB11000: INPUT“CUAL *;SC 

IF SC<1 OR SC>2 THEN 16485 

W=1:PRINTHOS :OPEN4, 4 

FOR L=1 TO N 

Y 

IF IS(L>=M THEN 16540 

AR$=I1$CISCL> 

ISSLEFTS$CAR$,8):CAS=MIDFCARS, 9, 4) 

CA=WALCCAS$) 

IF SC=2 Mea CnD4 : PRINTCHR$<17> 

PRINT"3 7/1 ATi IS 

PRINT"-ALT 140 e; CA 

PRINT:IF SC=2THENPRINTA4:GOTO 16540 

IF w<18 THEN 16540 
x=5:=23:G60SUB11000:PRINT" WIPULSE UNA TECLA PARA CONTINUARS:" 
POKE198, O SRT 

NEXT L 

FOR K=1TON' 15(1>=8: NEXTK 

CLOSE4 

X=2:W=23:G0SUB11000:PRINT" WPULSE UNA TECLA PARA VOLVER AL MENU" 
POKE198,0:WNRIT198,1:RETURN 

REM --- IMPRIME RECETAS --- 

PRINTHOS : GOSUB7099 
X29:Y=10:G05UB11008:PRINT"BCA1EDH IMPRESION EN VIDEO" 
=Y+2:G0SUB11000:PRINT"EX2ALEDE IMPRESION EN PAPEL" 
Y=W+2:GOSUB1 1000: FRINT "EX AE: EA AL MENU" 
X=16:Y=Y+3:605UB11000:PRINT" ELIJA" :Xx=22 

GETSC$: IFSC$=""THEN GOSUB11900:PRINT" 31?" :GOSUB11900:PRINT" ME ":GOTO18022 
SC=VAL(SC$) : IFSC>2THEN 18022 


1931 


18026 IF SC=0 THEN RETURN 

18028 IFG6<>2THENG6=2 :RG=1:GOSUBS600B 

18029 IF R$="N" OR R$="/" THEN R$="":RETURN 

19038 OPEN4,4 

18049 MX=WRALCONN$(0)) REM ULTIMO REGISTRO INTRODUCIDO 
18045 FOR IR=1 TO MX:REM BUCLE PRINCIPAL 

18047 PRINTHOS 

18052 IF SC=2 THEN CMD4:PRINTCHR$(17);CHR$(18>; :GOTO13055 
18954 PRINT" al"; 

18055 PRINTTAB<2)LEFTSONNSCIR)+30) :PRINT"EE"; 

18056 IF SC=2 THEN PRINTCHR$(146); 

18060 PRINTTAB<2)""POCA MAS ADECUADA = "¡RIGHTSCNN$CIR), 2) :PRINT 
18062 1F SC=2 THEN PRINTH4 

18067 PRINT"M";5 

18075 K2=1:FOR K=1 TO 3 

19082 DESCK>=MID$(DDSCIR),K2,35) 


180990 IF 5052 AnEn CrDA:PRINTCHR$C17)5 
186091 FOR K=1 TO 3 

18092 PRINTTABC3); DESCK) 

13094 NEXT K 

18095 IF SC=2 THEN PRINTH4 

18106 IF SC=2 THEN 18115 

18107 X=5:Y=21:60SUB11009:PRINT"MPULSE UNA TECLA PARA CONTINUAR":+POKE198,8:WAIT1 


18108 PRINTHOS 

18115 BSC1>=LEFTSCCCSCIR),2> 

16120 6=-3 

18125 FORJ=21016STEP2:REM BUCLE SOBRE LOS INGREDIENTES 
18130 G=6+6 

18135 BS$(J)=MIDSCCCSCIR), 6,2): REM PUNTERO INGREDIENTE 
19140 ESCI+1)=MIDS(CCS$CIR),G+2,4):REM CANTIDAD PREVISTA 
18145 L=WAL(BFCJ)) 

18147 IN 

13156 IF L=bB THEN 1816 

13169 DEALER, 8>:GOTO 18170 

18163 BS J)= == 

18170 NEXT J:REM FIN DE BUCLE SOBRE LOS INGREDIENTES 
18173 1F SC=2 THEN CMD4:PRINTCHRA$(17);:G0TO18175 

18174 PRINT'"M" 

13175 PRINTTAB(2)"-ANTIDAD PARA ";B$(1);" PERSONAS" 
18177 IF SC=2 THEN PRINTCHR$(18);:G0T019180 

18178 PRINT"MAN"; 

18190 PRINTTAB(2)"»NGREDIENTES :" 

18183 IF SC=1 THEN PRINT"33"5 

18184 IF SC=2 THEN PRINTCHR$(146);5 

19185 FOR JJ=2 TO 16 STEPZ 

18199 Ql$=" G" 

18195 1F BS(JJ+1)="888%" THEN Bs(JJ+1>=" 0" 

19200 IF VALCBSCJT+1))99999 THEN QUis$a"2G" 

18205 PRINTTABC1SI)BSCJJ) ¡SPOCSIBGCSJ+1 75015 

18207 NEXT JJ 

18203 IF SC=2 THEN PRINT"=====-=-. A A "PRINTRS 
18220 POKE198,0:X=10:Y=23: TRA PO RECETA £S/N) "¡ALS 
19225 IF AL$="N" THEN IR=MX:GOTO 1824 

18230 IF AL$<>"S" THEN 18220 

19240 NEXT_IR 

18309 CLOSE4: RETURN 

20600 REM RESTORE DATA 

20005 RESTORE 

20010 FOR [=0 TO 62:READ D:NEXTI 

20020 FOR I=1 TO q. READ X$+NEXTI 

20025 FORK=1 TO 3 

20030 FOR ra TO 62: READ D:NEXTI 

20035 NEXT K 

20045 IF LV<8 THEN RETURN 

20050 FOR I=1 TO LV:READ LV$:NEXTI 

20100 RETURN 

21090 REM Aaak LISTA RECETAS A0koK 

21003 IFG6<>2THENG6=2:RG=1 :GOSUB60BO 

21004 IFR$="N"ORR$="/"THENRS="": RETURN 

21005 PRINTHOS:PRINTCHR$(14); 

21007 X=2 

21008 Y=2 

21010 GOSUB11008: ÓN MAS ADECUADA" 
21012 Y=Y+1:G0SUB11000: PRINT"MP----========== E 
21025 MX=VAL(NN$(0)) 

21030 FOR K=1 TO MX 

21032 ARF=NN$CKO 

21034 N$=LEFTS<AR$, 30) 

21036 M$=RIGHTSCARS, 2) 

21038 GOSUB 11000:PRINT"M"¡N$;SPCC2);" 35 M$ 

21040 Y=Y+1 

21042 IF Y<20 THEN 21058 

21044 Y=22:G0SUB11000:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 
pS AN MWAIT198,1:PRINTHOS:Y=8 

21050 NEX 

21100 Y=22:G0SUB11000:PRINT"MPULSE UNA TECLA PARA VOLVER AL MENU” 
21110 POKE198,0'WAIT198, 1 

21115 RETURN 
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Control del peso 


12 REM Add PRINCIPAL Hd ACC 

13 POKE 809,225 

15 Usc1>="W PULSAR EZ UN 

16 U$(2)="Y PULSAR — e E 

18 DIM AASC120) 

19 DIM 6c120>,MC120>,P(120),4C120),L(18),NNC12),N0$(12),06C031),MC31) 
20 DIM B$(25),TPC23),L0(25),ND(25),0X(25),04(25),D2%(25), 0425) 

21 DIM TFC15),D$(25>,40$(20) 

22 BLé=" ":PDé=".,":AS$="-":NS$="8":SU$="M" :GIUE="9" : HOS$="07":SL$="/" 
2 REPARACION ARRE 650, 128 


25 PRINTHOS:G0SUB1390:PRINTHOS:PRINTCHR$(1427:REM Ak MENU! Ak 

26 IF 0PZ=4 THEN 5364738 

30 GOSUB20900 

33 POKE 53281,6:POKES3280, 14 

359 FOR I=1 TO 15:READ TF(1>+NEXTI 

100 FOR I=1 sn 12:READ NO$CI>:NEXTI 

119 POKE198,0 

120 ON OPZ GOSUB 5006, 5090, 15600 

130 REM 

1598 GOTO 25 

A iii 

1300 REM ES e 
1301 REM * MENU: PRINCIPAL 

e REM rai PROA 

1393 LvV=-1 

1305 U$=" ENU ":0PZ2=0:YO0S$COPZ9=" TA STL"L "Tor ":GOSUB 7008 


1315 59=53248POKES3+21) 1:PDKE2040,13 

1316 RESTORE 

1318 FOR 1=0 TO: 62:READA+POKES32+1,MNEXTI 

1321 POKESS+39,1:C1=7"5:C2=127 

1323 GOSUB 1363 

1324 COSUB 1326 

1927 GET 0PZ4$:1F 0PZ$="" THEN 1327 

1333 IF OPZ$=GIU$ THEN C2=C2+16:0P2=0PZ+1:GOSUB1363 
1336 IF OPZ$=SU$ THEN C2=C2-16:0P2=0P2-1+*GCOSUB1363 
1339 IF OPZ$=US5+ THEN 1381 

1342 IF ASCCOPZ+=25 THEN GOSUB 1456:60T01305 

1345 GOTO 1327 

1363 REM 44 

1366 IF C2<127 THEN C2=C2+16:0F2=0PZ+1:RETURN 

1369 1F C27175 THEN C2=C2-16:'DP2=0P2-1 RETURN 

1372 POKESS,C1:POKESS+1,C2 

1375 RETURN 


1382 Y=DPZ4SZ+YC E 
1384 GOSUB 11000 
1387 PRINT"3A";vY0S(0PZ> 
1396 FOR T=1 TO 1000:NEXTT 
1392 POKESS+21,PEEK(SS+21)AND254 
1393 RETURN 
1334 REM 444% 
REM 


1399 FOR J=1 TO NW:READ YO$<J):NEXTJ 
1400 REÍ AAA AAA ARAN RR 

1405 FOR 1I=1 TO NV 

1408 X=xC 

1410 Y=I14S5Z+YC 

1411 G0SUB110900 

1414 PRINT"»m";VOScI1> 

1417 NEXT II 

1420 RETURN 

1425 DATAO,0,0,0,96,0,0,144,0,3,32,0 
1427 DATA4,64,0,8,143,252,17,112,2,224, 129,252 
1422 DATAD,63,0,0,65,0,0,63,0,8,31,0 
1431 DATAO,33,0,0,31,0,224,63,0,16,81,0 
1433 DATA1S,30,0,0,0,0,0,0,0,0,0,0,0,0,0 
1444 DATA"1- +MTRODUCCION NUEVOS DATOS " 
1445 DATA"2- 3MPRESION DE LOS DATOS" 
1447 DATA"3- I|RAFICOS" 

1454 DATA"D- —IN DE TAREA" 

1456 REM Ade AWUDA MENU AR 
1459 PRINTCHR$(147):PRINTCHR$(14) 

1462 POKESS, 255: POKESS+1, 115: POKESS+39, 6 
1465 POKESS+40, 6: POKESS+41,6 

1468 POKESS+21,7:POKE2040, 13: POKE2041,14:POKE2442, 15: POKES3+29,4 
1471 FORN=9T062 :READO + POKES32+H, 0: NEXTN 

1474 FORN=0T062 : READO : POKES96+H, (1: NEXTH 

1477 FORN=0T062 : READO: POKE9E9+N, (1: NEXTH 

1488 POKESS+39,1:POKESS+4B, 1 :POKESS+41, 1 

1483 POKE 53281,6 

1486 PRINT"M ———_— 1 4 1 E AAA 

1489 FOR 1=1 TO 15:PRINT"M1 1) +NEXTI 
1422 RIN 5 --——_________—__z—mm a 


” 


1495 PRINTCHR$C(19) :PRINTTABC?) "MAMMA SAT LT 
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1498 POKESS+2, 255: POKESS+3, 145: POKES9+4,245:POKESS+5, 180 
1501 PRINT"MMABEDESPLAZA ABAJO: " 
1504 PRINT"MOBIDESPLAZA ARRIBA: " 
1567 PRINT"MMMBINTRODUCE OPCION ELEGIDA: " 
1519 PRINTTABCS) "MITA 18 1 OA AA MO ALT 
1513 GET R$: IFR$=""THEN1S13 
1558 POKESS+39,6:PRINT"01" : RETURN 
1552 DATAS,255,192,12,6,32,16,16,16,22,56,8,32,108,8 
1554 DATAG4,40,4,64,40,4,64,0,4,93,206,228,81,72,164 
1556 DATAS1,206,228,81,66, 164,93,46,148,64,8,4 
1558 DATRE4,40,4,64,40,4,32,108,8,32,56,8,16,16,16 
15690 DATA12,0,32,3,255, 192 
1562 DATA3,255,192,12,0,32,16,32,16,32,120,8,32,192,8 
1564 DATA64, 120,4,64,32,4,64,0,4,93,206,228,81,72,164 
1566 DATAS1,206,228,81,66,164,93,46,148,64,0,4,64,16,4 
1568 DATR64,120,4,32,12,8,32,120.8,16,16,16,12,0,32,3,255. 192 
1570 DATRO+.0,0,7,235,224,24,0,24,96,0,6,123,0,1,129,1,129 
1572 DATA134,131,129,132,2,129,132,0-129,142,0,129 
1574 DATR132,0,129,132,0,129,132,0,129,128,0,1,96,0,6 
1588 DATA24,0,24,7,255,224,0,0,0,0,9.0,0,0,0,9,0.0 
AN REM FIN DEL MENU PRINCIPAL 
-200s REN RA PRESENTA MASCARA dk 
10R 
26830 FOR J=1 TO NUC 


2032 Aé="" 
2035 R=DXCJ) + Y=DY CJ) GOSUB11000:PRINT"A DECI) 
AND TP<J2<54 THEN 2060 


2059 1F TPLID<OS 
2054 X=CRCIO + W=CW CJ) :GOSUB11000:PRINT"A"5BGCJ) 
2836 GOTO 2130 
2060 N1=LOCJ>N2=NDCJ> + IF TPCJ)=1 OR TPCJ)=2 THEN Cé$=HS$:G0TOZ079 
2064 C+=A5$ 
2070 FOR I=1 TO Ni-N2-1:A$=A$4C$:NEXTI 
2075 1F N2=0 THEN Fis=A$+C4:G0TO 2095 
2084 AS=AF+PDE 
2099 FOR I=1 TO N2:A$=A$+"8":NEXTI 
2095 K=CXCJ) :W=CYCJ):GOSUB 11008 
2096 PRINT “MAS; 
AO BI 
2098 FOR K=1 TO Ni-M2-1 
2100 BSCI)=BSCIIANSS 
2105 NEXT k 
2106 1F N2=0 THEN BS(J)=ESCJI+NS$:GOTO 2130 
2110 BS(J)=ES(J)+PDF 
2120 FORK=1TONZ:B$(J)=ES(J)+N94 :NEXTK 
2130 NEXT J 
2145 REM 
2150 RETURN 
ER 
“SOL9URen: Rk DATA ENTRY 4k 
3020 R 


3035 REM 
3040 NC=J 
3043 XSCRUNC) 
3046 Y=CW (NC) 
3050 CC=1 
3060 GOSUE 3248 
3065 IF FS=3 THEN RETURN 
3070 1F FS=0 THEN 3100 
3080 IF FS>4 THEN 3210 
3090 GOTO 3126 
3100 REM CARACTER 
3105 J=J+1: 1 ¿nue THEN 3030 
3110 GOTO 3041 
3126 UN FS SOTO 3120,3150,3170, 3190 
3130 IF J>1 THEN J=J=1:60T0 3040 
3140 F3=0: J=NUC:GOTO 3640 
31506 1F J<NUC THEN J=J+1:G0T0 3048 
3160 FS=0:G0TO 3030 
3178 IF CO<LOCJ> THEN S=1:CC=CC+1:X=X%+1:G0SUB 11000:G0TO 3960 
3180 Fs=6:G0TO 3100 
3199 1F CC>1 THEN S=-1:CC=CC=1:X=X-1:G00SUB11009:60TO 3060 
3200 FS=0:G0TO 3635 
3210 REM 
3220 1F FS>3 THEN FS=0:GOTO 3060 
3230 1F FS=8 THEN FS=B:G0TO 3100 
3235 RETURN 
3240 REM 
3250 REM «k LECTURA DE 1 CAMPO 4% 
3270 REM 
3280 FS=0 
3298 1F TPCNC)=4 THEN RETURN 
3390 1F TP(NC)=2 THEN GOSUE 9000: RETURN 
3310 IF MIDSCBSCNC),CC,1)=PDF THENX=%+S:CU=CC+S 
3326 GOSUE 11000 
3330 GET AS: IF A$<>"" THEN 3338 
3332 GOSUB11000:PRINT"zw"; :GOSUB11000:PRINT"a";MIDSCESCNC)/CC, 1) 
3334 FOR T=1 TO 40:NEXT T 
3336 GOTO 3338 
3338 IFASC(A$)=190RASCCASI=200éRASC(AS)=1470RASCCA$)=148 THEN 3230 
3349 PRINT"Ma"; AS; 
3358 CASASCCAS) 
3366 FOR I=1 TO 1 
3378 TE TELSCA, THEN FS=1:1=15:G05UE3630: RETURN 
2375 1F FS=9 THEN RETURN 
3380 NEXTI 
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33390 IF TPONCI<O1 THEN 3450 

3400 IF Cñ=45 OR CA=46 ORCCA>=43ANDEA<C=57>THEN3420 
3410 GOTO 3338 

3420 1F CA<546 THEN3450 

3430 GOSUB 4270 

3448 IF SHP=1 THEN 3410 

3450 S=1:GOSUB 3520 

3460 IF CC=LOCNC) THEN RETURN 

3470 CC=CC+1:X=X+1:G0TO 3310 


3520 REN 
3521 REM 4 TRASFERENCIA AL BUFFER ae 
3540 REM 


3570 IF CC=1 THEN SN$="": o 3590 
3580 SN$=LEFTS(BSC(NC),CC-1) 

3590 IF CC=LC(NC) THEN DES$="":GOTO3610 
3600 N=LC(NCI)=CC 

3605 DES$=RIGHTS(BSFCNC),N) 

3610 BS(NC)=SN$+A$+DE$ 

3620 RETURN 


REM 
3630 sen AH COMANDOS ok 
3680 1F FS>5 THEN 3710 
RETURN 


3710 1F FS=2 THEN GOSUB 13000:RETURN 
3720 1F FS=8 THEN GOSUB 4020 :RETURN 
3725 1F FS<8 THEN RETURN 

3730 ON FS-9 GOSUB 3740,3910 

3735 RETURN 


REM 
3745 REM xk INSERCION dk 
REM 


3770 IF CC=LC(NCITHEN RETURN e 
3780 IF CC=1 THEN SN$="":G0OTO3800 
3790 SN$=LEFTSCBSINC),CC-1> 

30800 N=LC(NCI-CC+1 

3310 DES=RIGHTS+CBSF(NCI NA 

3820 C$=BL$ 

3830 ASt=SNI+CF+DES 

33940 BS(NC)=LEFTSCAS,LOONCI) 

3950 X%M=x 

38395 WW=W 

3260 X=CXUNC) :=CY(NC):GOSUB 11000 
3870 X=A% 

3873 Y=WY 

3030 REM 

3890 PRINT BS$(NC>:S=-1 

39600 IF RIGHTECBSCNCI, 1)=PDF THEN 3780 
3905 er 


3910 rn AAA BORRADO Mod 


3930 PE TP(NCI<51 THEN 3950 

3340 IF MIDSCBGCNC>),2,1)=PDS AND CC=1 THEN RETURN 
3950 IF CC<1 THEN RETURN 

3968 IF CC=LC(NC) THEN DES$="":GOTO 3950 

3978 N=LCCNCI=CC 

3975 DES=RIGHTSCBSCNC), Bas 

3330 DOT TORT TE Ccc- 

3990 IF TPONCI=1 OR Peóic) 22 THEN C$=M3$:G0TO 4019 
4000 Cs=Ass 

4019 BSCNC)=SMI+DES+CF 

4020 AA4=% 

4025 YW=y 

4030 X=CX(NC):Y=CWY(NC):GOSUB 11000 

4040 X= 

4045 Y=Yw 

4050 PRINT BS$(NC):S=1 RETURN 

4030 REM ERRE ALINEADOS IEA z 
4084 IF LC(NC>=1 THEN RETURN 

4085 Mi=LC(NC>-CC+1 

4037 1F CC=1 THEN BS(NC>="":G0TO4109 

4090 BSUNC>=LEFTS$CBSCONC), CC-1) 

4109 IF TPCNC>=1 OR TPONC>=2 THEN 4150 

41190 FOR I=1 TO Ni 

4120 BS+(NC)=BFUNCI+BLS 

4130 NEXT 1 

4140 GOTO 4190 

4150 FOR I=1 TO Ni 

4150 A OS 

4170 NEXT 

4130 IF RIOHTS<BSCNC), 19=PD5 Maz ESINCI=BLS$+LEFTSCBG CNC), LOCNCI=1) 
4190 X=CX(NC):Y=CYCUNC) :COSUB 1101 

4210 E BS$(NC) RETURN 


4290 SUP=0 

4309 IF CC=1 OR CO=LCCNC) THEN SWP=1: RETURN 

4310 FOR I=1 TO LE(NC) 

4329 1F MIDS$CB$CNC>, 1, 19=BLS THEN I=LCCNC) :SUP=1:RETURN 
4330 NEXT 1:RETURN 

4348 REM 


REM 
5000 REM 4% IMPRESION DATOS xx 
5604 1FG6=2THENSO4b 
010 RG=1:GOSUE 6008 

B IFR$="/"ORR$="N"THENRETURN 
3040 MX=WALCMIDSCARS$C0), 10,49) 
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OPEN4, 4 

tall HOS:GUSUB 74098 

C=1 

=2:Y=10:G605UB11000:PRINT"RSE DESEA SOLO LA IMPRESION “ 
INPUT"ABIDEL ULTIMO PESO (SI/NO) A GR$ 

IF R$="NO0" THEN 5200 

PRINT HO$; 

I=14X :GOSUE 6900: W=0 


PRINT"AE. FECHA PESO WARIACION ma" 
PRINT"A"TABC2IBS(2);"/"B$(3) 5 SPOC10)B$(4) 5 SPCLCE)Y 
IF SC=2 THEN PRINTH4 
X=2:W=21:G0SUB11000:PRINT"MPULSE UNA TECLA PARA VOLYER AL MENU" 
POKE198,0:MAIT198, 1 
CLOSE4 : RETURN 
FOR I=1 TO Mx 
GOSUB 6300 
GC12=VAL(BS$C2)) 
MI) =WALCBGC3)) 
PCIO=VAL(ES(4)) E 
AR =1) 
NEXT 
vU0= 
PRINT HO+; : GOSUBSI0G 
q 5C=2 THEN I=1:GOTOS255 
=1 
PRINT"3El FECHA PESO VARIACION ma" 
FOR K=1 TO I+19 
IF SC=2 THEN GOSUB 7800:GOSUB 14000:G0T05265 
GOSUE 7308 
US 
IF SC=2 THEN PRINTH4:GOTO 5280 
2X=6 :Y=23:00SUB11000:PRINT"NPULSE UNA TECLA PARA CONTINUAR" 
POKE 198,0:WAIT 198,1 
I=1+20 
IF 15MX THEN 5285 
PRINTHOS:GOTO 5252 
PRINTHOS :X=2:=23: O PRINT"MPULSE UNA TECLA PARA YOLYER AL MENU" 
POKE198,0:WAIT198, 
A GOUSUB25000 : RETURN 


PRINT HO$: GOSUB7000 

4=2:=10:G0SUB11000:PRINT"S 11 TT MAY: 
X=14:Y=Y+3:GOSUB11009:PRINT"BCALEDS EN VIDEO" 
Y=W+2:G0SUB11000:PRINT"NCALON EN IMPRESORA" 
X=16:Y=18:G0SUB11000:PRINT"MELIJA":X=22 

GET SC$: IFSC$<>"" THEN 5950 
COSUB11000:PRINT"2u7?":FORT=1T0100:NEXTT:GOSUB11000:PRINT" " 
FORT=1T070:NEXTT:GOTO 5930 

SC=WVAL(SC$): IF 3C<1 OR SC>2 THEN 5930 

PRINT HO$: IFSC<>2THENSI6O 

LESC=STHENONDA : PRINTTABC?> "FECHA"; TABC19)"PESO"¿TAB(26)"VARIACIO » 
P N MD o O 1 A A O O A 1 SÓ O A o 


zm 
m 


RETURN 


Se WHR GESTIÓN CINTA 40 

RE 

PRINTCHR+(14)> 

PRINTHOS 

X=2:Y=17:G0SUB1 1000 
PRINT"APOSICIONAR LÁ CINTA DATOS" 
Y=21:605UB11000:PRINT"E ECHO? <aw=CONTINUA, MAR YUELVE AL MENU)" 
CETR$: IFR$=""THENGOSO 
IFR$="N"ORR$="/"THEN RETURN 
TFR$<>5"S "ANDRE "0" THENGO46 
X=2:=19:G0SUB1 1000 :PRINT"3" ¡WECRG) 


4=0:=9:GOSUB11000:PRINT"E" 
Ped G0T06200, 6490 


OPEN1, 1,0, "DATOS" 

INPUT4H1 RASO) 
TFOPZ=1ANDLEFT$< RASO), 9) <ONFFTHENGE=0: GOTO6240 
G6=2:FORI=1T0120 

INPUTR 1, RASCA 


OPEN1,1,1, "DATOS" 
FORI=0T0120 
PRINT4H1,) RAFCIO 
NEXTI 


CLOSE1 
RETURN 


REM 
REM -- EXTRAE REGISTROS -- 
REM 


BS$(2=LEFTS$CARFC 12,2) 
B$(3)=MIDSCARAS$C1I>,3,2) 
ES(4)=MID$CAR$C1),5,5) 
FOR K=1 TO S 


6922 
6924 
6930 
7000 
7001 
“uba 


vio a 2$(4),K,1)=CHR$(35) THEN B$(4)=CHRECIZIARIGHTSCBF(4),5-K) 
HEXT K 

RETURN 

REN 

REM 4k CARGA LOS DATA dee 
L=LENCYOS$COPZ))-3:L$=RIGHTS(VOSCOPZI,L):1F 0PZ=0 THEN 7605 
Ué="xOZ "+STRÍCOPZI+" " 

P=(30-L)/2:P$="":FORK=1TOP:P$=P5+" ":NEXT K 


7006 PRINT"3"; :PRINTCHR$(145 
7008 PRINT"MIR mr.l.s. "DICIONES -ORUM, e..." 


PRINT'MZN ";US; "mes 
PRINT"MAR E] 

IF OPZ=0 THEN PRINT+D ma; 
PRINT"EqU¡Lo; a PS 


S$0SUB 1 1900: IN AÁÉÁá—— _—_—_——_—__—___J 
ACCIÓN Alltel 
MM 


IF OPZ=0 THEN RETURN 
REM 


ON OPZ GOTO 7042,7042,7110 

LV=27:GOSUB 20008 : NUC=5 

FOR I=1 TO NUC:READ D$cI):NEXTI 

co I=1 TO NUC:READ TPCI),LOCIO NDCID,DXC IO DCI OXIDO CIO 


7100 NEXT I 


RETURN 


7500 REM -- CONTROL FIN FICHEROS -- 


IF RESNRM THEN 7526 


7315 RETURN 
73520 PRINT HOS 


8: Y=18:GOSUB11009 pS 
PRINT"EL FICHERO DATOS ESTA AGOTADO" 


73935 X=X-2:Y=Y+5:G05UB11000:PRINT"AIPULSE UNA TECLA PARA GRABAR" 
7337 POKE 198,0:WAIT 198,1 
7340 RG=2:G0SUB 6000: RUN 


REÍ 
7803 G$(1)=STRECOCKI):G4(2)=STRFCMCK)) 


G5(3)=STRECPCK)7) ¿0414 =STRECVCK)) 


FOR J=1 TO 4:6$(J>=RIGHT$C0$(J), LENCOSCI))=1) LJ) =LENCOSFCIO NEXT 
FOR M=1 TO 4 
N=2: TFM>2 THENN=6 


7825 Ni=N-L(M):1F Ni=OTHEN7850 

v830 FOR P=1 TO Ni:G$(M)=CHR$C32)+0$ (M1) :NEXTP 
7850 NEXT M 

7860 RETURN 


REM 
3001 EEN INTRODUCCION DATOS EN FICHERO NOMBRE 
mM 


G0SUB12000: IFG6<>2ANDRG=1THENRETURN 
PRINTHOS: —GOSUB 7000:ESC1)=NF$ 


3013 GOSUB 2000:REM * MASCARA * 
8015 GOSUB 3000:REM * DATA ENTRY « 


8016 1F FS=6 OR FS=9 THEN 3013 

8017 1F FS=7 THEN RETURN 

8020 IF VALCB$C(2)><10 THEN B$(2)="0"+RIGHTSCBS(2), 1) 

8025 IF VALCBL(2))7310RVAL(BF(4))712 THENGOSUB9150:GO0TO 28012 
3026 IF VALCB$(2))<0 ORYAL(BFC(47)<0 THENGOSUB9150:GOTO 3012 
pié A A ORWYAL(B$(4))=35 THENGOSUB9150:G0TO 8612 
3042 R RESVALMIDSCAR$CO), 18, 43341 


8043 NRM=120:G0SUB 7500 
2045 AS (RE>=ES(2)+BS(4)+B$(5) 


ARSC0)=LEFTSCARS CO), 94 STRÍCRE) 

PRINT HO+:GOSUB7000 

24=9:Y=13:G0SUB11000:PRINT"MCALEO 2 OTRA INTRODUCCION" 
Y=+2:G0SUB11000:PRINT"ECAREOS GRABO Y VUELVO AL MENU" 
2=12:Y=13:C05UB11000:PRINT" ELIJA" :Xx=22 

GET PR$:IFPR$<>"" THEN 8061 
G0SUB11000:PRINT" 3?" :FORT=1T0100:NEXTT:GOSUB11000:PRINT" 


8059 FORT=1T070:NEXTT:GOTO 8957 


IFPR$="1"THENSO12 
IFPR$<5"2"THENSOS7 
e GOSUB6000 ¿RETURN 


REN 
REM ROTIMNA CALCULOS 
REN 


3150 REM ROUTIME ERRORE 
9152 X=9:Y=20:50SUB11000:PRINT" ETT 77 AAA 


FOR T=1 TO S508:NEXT T 
4=9:1=20:G0SUB11000:PRINT" "RETURN 
REM ARAS DATA ARA 


REM 

DATA _145,17,29,157,140,133,136,13,25,134,135,0,0,0,0 
DATRENERO, FEBRERO, MARZO, ABRIL MAYO, JUNIO, JULIO, AGOSTO 
DATASEPT IEMBRE , OCTUBRE , NOVIEMBRE, DICIEMBRE 

E 

DATA" ITA MN A IS METIO 
DATA4,9,0,7,12,18,12 

DATA1,2,6,10,15,18,15 

DATA4,1,0,20,15,21,15 

DATA1,2,6,10,15,21,15 

DATA1,5,1,10,17,18,17 

RENA HARAN 

R 


El 
REM 444 POSICIONADO EN X.Y Ad 
POKE 211,2% 
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POKE 214.,w 
51958732 
RETURN 

REM CONTROL Y CREACION DE FICHEROS 
PRINTHOS;CHR$(14) :POKES3280, 14 
X=1:Y=9:GOSUB1 1009 :PRINT"25 417 Al 
W=Y+2:G0S5UB11000:PRINT"CMAXIMO Y CARACTERES)" 
X=26:=11:605UB11000:PRINT"Me=--==-=-=- 
NF$="":x=26:w=10:G0SUB1 1000 

FOR K=1 TO 9 

GET N$: IFNG=""THEN12020 

IF N$=CHR$(13) THEN K=9:G0T012030 

PRINT"MUNS) :NFS=NF$+N$ 

NEXT K 

L9=LENCNES) : IF res THEN NES=LEFTS$(NFS.9) 

IF L9=9 THEN 12035 

FOR K=1 TO 9-L9:NFS$=NF$+CHR$(32) :NEXTK 

PRINTHOS :%=9:Y=10:GOSUB11000:PRINT"NL =P 
X=8:=13:G05UB11000:PRINT"SE DEBE CREAR? (e O /)" 
CETRS$ : IFRS$=""THEN12040 
IFRS$="N"ORRS$="/"THENRG=1:G00T012065 

IF RS$<>"S"ANDRS$<>"0"THEN12040 
As="":FORI=1T09:A$=A$+"4":NEXTI 
FORI=1T0120:RA$C1)=A$:NEXTI 

> adC 

GOSUEG6UO 

IFR$="/"0RR$="N"THENG6=0 : RETURN 

IFRG=2THEN12125 

IFG6=2THENPRINTHOS :GOTO12130 

PRINTHOS:X=1: 


POKE198,B8:WAIT198,1:PRINTHOS : RETURN 
RED AAA AA lod 
pa Ak AYUDA odo 

15] 


— LA TAT7A" 


a Nr 


Y=4:G0SUB11000:PRINT"HERROR: LA CINTA CONTIENE FICHERO DATOS" 
X=15:W=6:G0SUB11000:PRINT"3"¡LEFTSCAASCO), 9); "W":GOTO12130 
PRINTHOS:X=6:Y=4 : GOSUB11000:PRINT"MFICHERO DATOS M";NF$;"35 CREADO" 
X=6:=21:G0SUB11000:PRINT"MPULSAR UNA TECLA PARA CONTINUAR" 


POKE 53280,6:PRINTHOS; :PRINT 
PRINTTABCS)"MBACRSR RIGHT : 
PRINTTABCS)"MBACRSR LEFT 
PRINTTABCS)"MAACRSR UP 


CHR$(142); 

2 MUEVE A DERECHA " 
MN MUEVE A IZQUIERDA” 
Ni MUEVE ARRIBA 


13025 PRINTTAB(S>"MBACRSR DOWN  : E MUEVE ABAJO A 
13030 PRINTTABCS>) "MA Fi” : El ANULACION » 
13035 PRINTTAB(S)"MAh F3” : E INSERCION a 
13040 PRINTTAB(S> "MA FS” : El BORRADO E 
13045 PRINTTAB<S> "MA F?” : 3 VUELTA AL MENU " 
13047 PRINTTAB<S> "MA FO” : 8 INTRODUCCION e 
13050 PRINTTABCS)"MACTRL+Y : E AWUDA y 
13055 REM 

13068 PRINTTABCS) "MARE TURN ALINEAR id 
13065 PRINTTABC(6>"MAPULSE UNA TECLA PARA VOLVER" 

13066 GETR$: IFR$=""THEN13066 

13068 PRINT HO$:PRINTCHR$(14):POKE 53280, 14 

130740 RETURN 

14000 REM -- IMPRESORA -- 

14001 REM dolo 

14002 REM 

14005 CMD4 

14020 PRINTTAB(SI)6$C1)5"/" 5602); TABC15)0$(3) 5 TAB(27)0$(4> 
14030 RETURN 

15000 REM 

15001 REM mk 

15002 IFG6=2THEN15005 

15003 RG=1:GUSUBEG00 


IFR$="/"ORR$="N"THENRETURN 

PRINTHOS :GOSUB 740988 

X=12:W=10:G0SUB11000:PRINT"adi = Ml Aa FT 7/0 AL" 
W=Y+2:G0SUB11000:PRINT"ML = Ml MT 4/ AL" 
Y=Y+3:2X=17:G0S5UB11000: INPUT"ECUAL ";0 

IF 0=2 THEN ME=0:N1=12:L1=1:LX=35:x0=4:G0T0 15020 
Y=16:X=12:G0OSUB11000: INPUT" o (1-127"5ME 


8 IF ME<=A OR ME>12 THEN 15017 
=31:X0=5 


N1=31:L1=0:LX: 
PRINTHOS; :PRINTCHR$(142); :POKES3230,6 
MX=WALCMIDSCARSCO),10,4)) 
FOR I=1 TO MX 
GOSUB 6989 
M=VAL(B$(3)> 
=VAL(BF(2)) 
P=VAL(B$(4)) 
IF ME=0 THEN 15055 
IF MOóME THEN 15660 
bCG)=P:GG1G6>=G :G0T015860 
WM =CM+P 
NNCM)=NNCM) +1 
NEXT 1 
IF ME<>O THEN 15880 
FOR I=1 TO N1:IF NNCI)=0 THEN1SO75 
WC INCITA 
NEXT 1 
REM dolo DIBUJA EJES Aolok 


Lr=26- 13207" 


X=0:Y=24 :GOSUB11090:PRINT"Me: IMPRIME EN PAPEL. R=RETORNO AL MENU"; :X=X%0:Y= 


FOR J=1 TO LW+1:Y=Y+1:G0SUB11000:PRINTIS; :NEXTJ 
FOR J=1 TO LX:X=X+1:G0SUB11000:PRINTIS;*NEXTJ 


IF ME=0 THEN 15130 
PRINT"""; :X=X0-1:v=Y+1 
REM 


REM 
FOR I=9 TO N1STEP19: 60SUB11099:PRINT"M"L;:X=X+10:NEXT1 
GOTO 15135 
Y=W+1:X=X0: FORI=1TOM1: X=X+L1:GOSUB11000:PRINT"W"LEFTS(NO$C1),2)5: 


REM 
e MAXIMO Y MINIMO 


MI=200 

FOR 1I=1 TO Ni 

IF lcI)=0 THEN 15199 

IF UCI=MA THEN MA=bLC 1) 

IF WCI<=MI THEN MI=sWcC1) 

NEXTI 

REM 

X=0:Y=0:FOR I=MA TO MA-10STEP-1 

IF ME=0 THEN I=INTCI> 
Y=Y+2:60SUB11000:PRINT"2"1; :NEXTI 
IF ME=0 THEN K$="ANNUALE" :GOTO152109 
K$=NO$(ME) : MA$=STR$<MA) 
X=0:Y=0:G0SUB11090:PRINT" SMPERSONA: a ¡LEFTSCAR$C0),9)"M P.MAX= 


REM GRÁFICO 

IF ME=Q THEN X=X8:G0T015230 
X=x0+1 

Ya-2 

KM=MA-10 

FS=2 

FOR I=1 TO Ni 

X=x+L1 


-1F WCI)C=0 THEN 15310 


KebC1)=KM 
Y1=22-INTCKKFS) 
ya Y1<=8 OR W1>=22 THEN 15310 


REM 

IF MES0 THEN 15299 
POKE646, 1: WY=1 

IF WCI=MA THEN POKE646, 10 


1F MCI)=MI THEN. POKE646, 13 


X=GG(1>+5:G00SUB11000:PRINT"e";:GOTO15310 
FOR st TO WISTEP-1 

POKE646, 15 

pe AIM THEN POKE646, 10 

IF WCI>=1M1 THEN POKE646,5 
GOSUB11000:PRINT"A  "5:NEXTY 
X=X+L1+1 

NEXT 1 

GETAS: IFA$=""THEN15399 

IF A$="R" THEN GOSUB25000: RETURN 
IF A$C>"e"THEN 15390 

REM -- HRDCPY -- 

OPEN4, 4 :CMD4 :PRINTTABC10);K$:PRINT 


FOR K=1104 TO 1982 STEP40 


S$= ..u 

IF K>1943 AND ME=0 THEN PRINTCHR$C17);CHR$(18); 
FORI=11040 

K1=PEEKCK+1> 

IF K1>=1 AND K1<=26 THEN K1=K1+64 
IF K1=160 THEN K1=238 

IF Ki=81 THEN K1=113 

IF K1=80 THEN Ki=112 

IF K1=106 THEN Ki=179 

IF Ki=119 THEN K1=183 
S$=S$+CHR$(K1) 

NEXT 1 


PRINT S% 


“e Ga AND ME=4 THEN K=K+48 


NEXT_K 

PRINTH4 

CLOSE4 
POKE198,0:WHA1T198,1 
COSUB25000 : RETURN 


RE! 
ABEl PESTOSE DATA 
RESTORE 


FOR 1=0 TO 62:READ D:NEXTI 
FOR l=1 TO NV:READ X$:NEXTI 
FORK=1 TO 3 

FOR 1=6 TO 62:READ D:NEXTI 
NEXT K 

a Luso THEN RETURN 

FOR I=1 TO LV:READ LV$:NEXTI 


RETURN 

REM PONE A CERO 

FOR Q=1 TO 128 

Pc0=0 

Yc00=0 

6(0=8 

mooo=0 

NEXT Q 

FOR G=1 TO 31:1(0)=6:66(0>=0:NEXTO 
FOR QU=1 TO 12:NNC0>=0:NEXTO 
RETURN 


X=X+2:NEX 


"MAS; "a "K 
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RELACION DE VARIABLES - COMMODORE 64 


Recetario PA = puntero al registro actual 
BS(«) = matriz de buffers (1 por campo) GE = índice de generación ficheros 
TP (+) =tipo campo de introducción (subrutina 12000) 
LC(x) =longitud en caracteres del campo NRM = número máximo de registros 
de introducción 
ND(+) =número decimales previstos en el Control del peso 
campo de introducción numérico B5(.) = matriz de buffers (1 por campo) 
CX(+) - TP(«) = tipo campo de introducción 
CY (+1) = coordenadas en pantalla del LC(+) = longitud en caracteres del campo 
campo de introducción de intraducció 
DX(s) Re e introducción 
DY(s) = coordenadas en pantalla de las ND(+) = número decimales previstos en el 
descripciones campo de introducción numérico 
TF(x) = matriz de códigos ASCII de las CX(«) z 
teclas de comando previstas CY («:) 4 cmo 58 pantalla del 
DS(s) = descripciones 1% campo de introducción 
VO$(+) =voces del menú principal avi = coordenadas en pantalla de las 
FIS(«) = matriz de los nombres de los y descripciones 
ficheros utilizados TF(«) = matriz de códigos ASCII de las 


LF(«) = matriz longitudes, en bytes, del teclas de comando previstas 


registro de cada fichero = descripciones 


Q(+) =voces del menú principal 


CA(s) =cantidades y contenidos calóricos 
de los ingredientes (subrutina 
Determinación dosis y = variables dedicadas a las 
contenidos) introducciones del usuario. Tienen 

AS(«) =utilizada en el Ordenado una dimensión de 365, 
ingredientes (el Sort se hace en la permitiendo una introducción 
memoria) diaria del peso 

=variables de apoyo para el = matriz de las pesadas con gráfico 


anual 
Ordenado 3 , 
; : = matri nti 
=nombre del fichero considerado atriz que contiene los nombres 


= cadena de lectura o escritura de o E ra ad -. nn móRpa/á 
en soporte magnético p 


el cálculo de la media 
= parámetros de búsqueda, = matriz de las pesadas con gráfico 
Subrutina 1400 mensual 


La lógica del programa En la figura de la página siguiente se muestra la 


El procedimiento se divide en dos programas: el £Structura de los ficheros, que son: 
Recetario y el Control del peso. 


NOMB Contiene los nombres de las rece- 
Recetario tas introducidas, y se utiliza como 
: : índice para los otros ficheros 
Las funciones que realiza el programa son: DESC Contiene las descripciones de las 
= Creación y gestión de una tabla de ingredien- recelas ' ' 
tes de la que extraer los contenidos calóricos COMP En este fichero se memorizan los in- 
de los diferentes platos. gredientes y las dosis ' 
m Gestión de un archivo de recetas. INGR Contiene todos los posibles ingre- 
4 dientes y el correspondiente conte- 
El segundo programa utiliza los datos del primero nido calórico 
para determinar los contenidos calóricos de cada 
receta en función de las dosis. Esta estructura da la posibilidad de ahorrar 
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espacio en el soporte magnético. Efectivamente, 
en los ficheros INGR, los ingredientes son memo- 
rizados con su nombre, mientras que en el COMP 
sólo se indica el código, o sea el correspondiente 
número de registro del fichero INGR. 

Así, cada ingrediente sólo debe memorizarse en 
el fichero INGR, evitando su repetición para cada 
receta que lo utiliza. 

Naturalmente, para cada receta debe memorizar- 
se el puntero para poder tomar el nombre en lodo 
momento; el puntero es un valor numérico y, por 
tanto, ocupa mucho menos espacio que un nom- 
bre: considerando el elevado número de recetas 
que pueden memorizarse, se obtiene una notable 
economía de ocupación del soporte magnético. 
Con referencia a la figura de abajo, el programa 
puede dividirse en dos procedimientos: 


m Introducción de recetas 
"m Petición de una receta. 


La primera debe ser activada por la creación del 
archivo, y la segunda se utiliza para consulta. 

El flujo de introducción se identifica con los valo- 
res numéricos de 1 a 5, mientras que para la inte- 
rrogación se utilizan las letras A a G. Durante la 
introducción intervienen todos los ficheros, en el 
orden indicado por la progresión numérica. 

Por tanto, la primera grabación interesa el fichero 
NOMBRES, en el que se escriben el nombre del 
plato y la época más adecuada. El número de 
registro en que está memorizado este dato cons- 
tituye el puntero al fichero DESC, en el que está 
contenida la descripción, y al fichero COMP, en el 
que hay memorizados los ingredientes. 


RECETARIO: ESTRUCTURA GENERAL 


El nombre se 

utiliza como clave 
Petición de búsqueda 
de una 


receta 


El número de 

registro en el que hay 
escrito el nombre se 
Usa para el cálculo del 
puntero de principio 
de descripción 


Introducción 
de los ingredientes 


(o) Los códigos de los ingredientes 


apuntan al archivo 


Del archivo se toman los nómbres 
reales de los 
ingredientes 

Impresión 
composicion , 
y. según la cantidad, 
el contenido calórico 
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La estructura no presenta dificultades particula- 
res, excepto la gestión del fichero INGR y la con- 
siguiente codificación de cada ingrediente, 
Como se ha dicho, la primera función realizada 
por el programa de gestión de recetas es la intro- 
ducción del nombre del plato de la descripción. 
Los dos datos se transfieren a los ficheros NOMB 
y DESC respectivamente. 

Sigue la introducción de las composiciones. En 
esta fase intervienen los ficheros NOMB y COMP, 
Para cada receta, los alimentos que la consti- 
tuyen son introducidos en la máscara vídeo con 
su nombre. Al final, cada nombre se busca en el 
fichero INGR y es sustituido por el correspondien- 
te número de registro. Estos valores numéricos, 
que constituyen los punteros a los nombres, se 
memorizan en COMP, 

El flujo para el uso del recetario (consulta) es aná- 
logo. La primera función es la lectura, en vídeo, 
del nombre, el cual debe estar ya memorizado, El 
nombre introducido se busca en el fichero NOMB 
y, si se encuentra, el número del registro en que 
está memorizado se utiliza como puntero al fiche- 
ro DESC, del que se extrae la descripción, y al 
fichero COMP, del que se toma la composición. 
El proceso de los datos contenidos en COMP si- 
gue un flujo contrario al de la introducción porque 
el programa lee del fichero los códigos de los va- 
rios ingredientes, los busca en INGR y, si los en- 
cuentra, los sustituye por su nombre. 

Llegado a este punto, el programa sólo debe in- 
cluir una subrutina de impresión y un eventual 
cálculo de nuevas dosis. En general, en la fase de 
utilización, el número de personas previstas para 
la preparación del plato puede no coincidir con el 
número de personas efectivas, con lo que las do- 
sis no son las debidas. 

Para ello se ha incluido la petición de modifica- 
ción de las dosis y, en caso afirmativo, poder cal- 
cular las cantidades en base al nuevo número de 
personas. 


Introducción de recetas (subrutina 8000). La 
primera función es la introducción del nombre de 
la receta y de la época más adecuada. El primer 
dato constituye la clave de acceso y, por tanto, 
debe preverse un control de duplicación que im- 
pida el uso erróneo de un mismo nombre para 
dos platos. 

Este control consiste en la búsqueda del nombre 
en el fichero. Si se encuentra, se activa un flag de 
error y se pide una nueva introducción. Si este 
control es negativo, sigue la memorización en el 


fichero NOMB. con el método usual de direccio- 


nado mediante el directorio (registro 1). 

Después de la introducción del nombre se pre- 
senta la máscara para la descripción. Su gestión 
se obtiene mediante la data entry, por lo que no 
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presenta ninguna dificultad. La composición se 
trata de manera análoga. Al final se actualiza el 
registro 1 del fichero NOMB. Recuérdese que es- 
te fichero se utiliza como directorio para todos los 
demás (por lo que el número de las recetas intro- 
ducidas debe estar escrito en su primer registro) 
y como puntero para los ficheros DESC y COMP. 


Búsqueda de un nombre. En la búsqueda de un 
plato, la principal función es la comparación entre 
la cadena que contiene el nombre del plato bus- 
cado (introducida mediante vídeo) y la que con- 
tiene el dato leído en el soporte magnético. Si 
existe coincidencia, el número de registro leído 
es el puntero para todos los ficheros (descripción, 
ingredientes). De otro modo, la lectura del fichero 
NOMB prosigue hasta encontrar la receta busca- 
da o el final del fichero. En este caso, el nombre 
no existe y se pide una rectificación. 

El diagrama de la subrutina de búsqueda, pre- 
sentada en la página 1944, está estructurado pa- 
ra acelerar el programa (sólo es una sugerencia, 
porque no está en los listados). 

En la gestión de los archivos, una de las activida- 
des que emplean más tiempo es la búsqueda de 
un dato. La mejor solución es mantener el archivo 
siempre ordenado y utilizar la búsqueda binaria, 
pero esto implica grandes dificultades en las fa- 
ses de introducción y de actualización, 

A veces conviene el uso de una técnica menos 
veloz pero mucho más sencilla, que consiste en 
cargar en memoria un cierto número de registros, 
realizando la búsqueda en ellos. Si el resultado es 
negativo, se procede a la carga del siguiente blo- 
que, y así sucesivamente hasta encontrar el valor 
buscado o el final del fichero, 

El método se ha ilustrado en el diagrama, pero en 
los programas no se emplea. Las modificaciones 
para hacer congruente el diagrama con los lista- 
dos se han indicado en la misma figura. 
Además de esta posible implantación, la subruti- 
na tiene otra particularidad. El nombre de un plato 
suele estar constituido por varias palabras, algu- 
nas de las cuales indican una «categoría». Por 
ejemplo, las palabras pescado, carne, pasta, etc. 
se utilizan con frecuencia en el nombre de los pla- 
tos y, al mismo tiempo, indican una categoría que 
puede ser útil seleccionar por sí misma. De esta 
manera se tienen varias posibilidades de selec- 
ción o a partir de todo el nombre, que identifica 
univocamente un plato, o de una parle, que pue- 
de identificar una categoría. 

Esta funcionalidad se obtiene con una subrutina 
particular de comparación, cuyo diagrama puede 
verse en la página 1945, 

Antes de llamar la subrutina deben transferirse 
dos valores a comparar en las varjables A$ y C$: 
la primera contendrá el nombre introducido por el 


INTRODUCCION RECETAS 


Introducción Este control 
nombi evita que se 
) introduzca dos veces 
el mismo nombre 


ARE se transfiere 
la última posición ocupada 


Escritura del nombre de la receta 


Escribe en el fichero y del periodó 


NOMB reg. = RE +1 


La descripción está compuesta 
por 12 líneas, cada una de 35 
caracteres, y constituye 6 registros 
del fichero DESC. Dos lineas 
constituyen un registro (70 bytes) 


La composición prevé como 
campos el número de personas y 
los ingredientes (máx. 8) 

con las cantidades previstas 


La actualización del registro 1 se 
hace al linal de la escrilura de 
todos los ficheros para 

evitar el desalineado de los 
punteros a los registros 


Actualiza reg. 1 
fichero NOMB 


La actualización, o sea la modificación de los dalos existentes, se produce con un 
flujo análogo. 
Por tanto, el correspondiente diagrama se ha omitido 
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BUSQUEDA EN UN FICHERO 


Este diagrama sólo es indicativo. 
Para el desarrollo exacto de la rutina Nes el número de registros cargados 
deben consultarse los listados en memoria. En la versión 


disco, N = li 


El número de registros que 
pueden cargarse 
simultáneamente depende de 
la capacidad de memoria. Los 
registros se cargan en ES$(N), 
un registro en cada cadena 


Selecciona la primera cadena, 
o sea el primer registro 


Transfiere la cadena E$ 
a la variable de trabajo C$ 


O 


> Encontrado. Ver 
subrutina 15500 


«TD 
¡O 


N 
y s 
y s | 
N 
MX = número de registros descritos 
ys 
Para utilizar una cantidad menor de memoria, la subrutina puede modificarse así: 
— Eliminar el bloque A (versión disco) 
— Insertar en B la lectura del registro l; los datos se transfieren a CS 
— Sustituir el límite del bucle sobre | [de N pasa a ser MX) 
- Aplicar el bucle a N 


De esta manera se tiene una lectura secuencial del fichero, más lenta, pero que 
no necesita grandes áreas de memoria 
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SUBRUTINA DE COMPARACION 


La subrutina está estructurada 
para no utilizar instrucciones 
particulares. En algunas 
versiones puede ser muy 
diferente para aprovechar 
plenamente las capacidades de 
la máquina 


O 


Ex] 
[7] 
y 
LT] 
xy 
Ez) 

oy e— 


Extrae un 
carácter 
de C$ 


y? 


Las dos cadenas son idénticas. 
La receta se ha encontrado 


Pone a cero 
el contador 


Principio del bucle de 
extracción de caracteres 


Extrae el carácter de 
la posición | de AS 


Un espacio en la 
cadena A$ se cuenta 
como si fuese un 
carácter igual al 
contenido en C$ 


2 


y 


2D 


El contador se ha 
incrementado 


y 


En la versión MSX, 
la comparación se hace 
sobre 15 caracteres 


El flag K1 se 
pone a 1 si 

se ha encontrado 
él nombre 
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usuario, y la segunda el leí- 
do en el fichero. En respues- 
ta, la rutina pone el flag K1 al 
valor 1 si hay coincidencia. 
Por tanto, para determinar si 
el nombre se ha encontrado, 
en la salida basta con com- 
probar la condición K1 = 1. 
Debido a sus particulares 
funciones, el desarrollo de 
esta rutina es muy diferente 
a los métodos usados hasta 
ahora. En su entrada se ha- 
ce una comparación entre 
las dos variables (AS y C$) 
que, en caso de búsqueda 
completa (en todo el nom- 
bre, incluidos eventuales es- 
pacios en blanco), puede 
ser suficiente. 

Si la comparación da resul- 
tado negativo, debe entrar 
en la lógica de análisis de 
carácter por carácter, 

En esta fase, las dos cade- 
nas, A$ y C$, se comparan 
un carácter cada vez. Por 
cada coincidencia se incre- 
menta el contador K. Al final, 
si el valor de K es igual a la 
longitud de las cadenas, el 
resultado es positivo. 

La primera cadena (A5) 
contiene el dato introducido 
por vídeo y debe ser de la 
misma longitud que C$, in- 
cluso si esta última sólo con- 
tiene una parte del nombre: 
en este caso, los caracteres 
que quedan están en blan- 
co, y deben considerarse 
como válidos a fines de la 
comprobación. Es decir, 
cada carácter «b» de A$ 
incrementa en 1 el conta- 
dor K. 


Introducción de la compo- 
sición. Esta función, ya des- 
crita antes, introduce una 
codificación de los alimen- 
tos. 

El diagrama de al lado 
muestra con detalle las ope- 
raciones de codificación. 
En la fase de introducción 
(después del nombre y de la 
descripción de la receta) 
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DETALLE DE LA INTRODUCCION COMPOSICION 


Bloque B de la introducción recetas 


y 


Los ingredientes están 
en B$(l), y las cantidades 
en BS(l + 1) 


Selección primer ingrediente. 
El uso de la variable | 
como Índice del bucle 
es puramente indicativo 


En AAS se pone el 
nombre leido en el 
fichero datos de los 
ingredientes y en B$(s), 
el nombre introducido 
por el usuario 


(*) Svel componente B5(1) se ha encontrado, el nombre se sustiluye por el número 
de registro del fichero INGR correspondiente 


deben especificarse los in- 
gredientes y las dosis. 
Como yá se ha indicado, en 
el fichero COMP no hay me- 
morizados los nombres de 
los ingredientes, sino sus 
punteros correspondientes 
al fichero INGR. 

Si se encuentra, el nombre 
es sustituido por el número 
de registro y, si no, el nom- 
bre ya no se presentará 
más. 


Determinación de dosis y 
contenidos. El uso del pro- 
grama en la función de bús- 
queda y presentación de 
una receta puede resumirse 
con las acciones: 


"m Introducción y búsqueda 
del nombre 

=m Lectura del registro en el 
fichero COMP 

m Decodificación de los in- 


gredientes (sustitución 
del puntero por la des- 
cripción) 


m Cálculo de nuevas dosis 
(si es necesario) 
m Presentación 


En el diagrama correspon- 
diente (págs. 1947 a 1949) 
se evidencian estas fases 
principales. La primera fun- 
ción es la introducción de 
los parámetros de selec- 
ción, o sea del nombre (total 
O parcial) y de la época. 
Terminada la introducción, 
empieza el bucle de bús- 
queda en el fichero NOMB. 
Si la búsqueda tiene resulta- 
do positivo, el número de re- 
gistro (IR) en que se ha ha- 
llado el nombre se utiliza co- 
mo puntero en el fichero 
COMP (el caso de solución 
negativa no se ha represen- 
tado en el diagrama para 
abreviar). De éste se extraen 
los códigos de los ingre- 
dientes, su cantidad y el nú- 
mero de personas a que se 
refieren las cantidades. 


DETERMINACION DOSIS Y CONTENIDOS 


El registro se transfiere a BS(N). 
N = 1 para el número de 
personas previstas 

Nde 2a16 para los 
ingredientes 


Comparación 


5000 


e! 
0 


Una receta se selecciona en 
base al nombre, total o parcial 


Memoriza en X el número de * + 
recetas presentes 


Principio del bucle de lectura del 
fichero NOMB (el registro 1 no 
se utiliza para los datos; en la 
versión cinta, el registro 1 
corresponde al registro 0) 


Examinasiel 
registro leído coincide con la 
selección elegida 


SiK1=0, 
el registro no contiene los 
elementos de selección 


Principio del bucle de lectura 
de la tabla de ingredientes 


1947 


Los ingredientes así identifi- 
cados deben sustituirse por 
las descripciones asociadas 
al código. 

Para ello se activa un bucle 
que, usando los códigos 
que hay en la receta, extrae 
las descripciones y los con- 
tenidos calóricos del fichero 
INGR (la correspondencia 
debe existir forzosamente, 
ya que los códigos son los 
punteros a los registros de 
INGR, implantados en la in- 
troducción de la receta). Al 
final de la decodificación se 
presenta el nombre real de 
la receta junto con la peti- 
ción de modificación de las 
personas previstas. 

Si la respuesta es negativa 
(no se cambia el número de 
personas), el programa pide 
si se desea otra receta (pun- 
to 3), y si no es así, termina. 
En cambio, si se modifica el 
número de personas previs- 
tas, antes debe activarse el 
cálculo de las nuevas dosis 
y, por tanto, una nueva pre- 
sentación. 


Control del peso 


Como ya se ha indicado, es- 
te programa está incluido en 
el procedimiento del receta- 
rio sólo por afinidad. Los fi- 
cheros y las modalidades 
de gestión son completa- 
mente diferentes. 

Sus funciones son: 


mn Introducción del peso de 
la persona y de la fecha 
correspondiente. 

m Presentación del gráfico 
mensual o anual 

"= impresión de los datos 
con cálculo de la varia- 
ción entre una pesada y 
la siguiente. 


En la página 1950 se ha re- 
presentado el diagrama de 
la gestión de los datos. En 
esta subrutina se han reuni- 
do las funciones de intro- 
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Salta si el ingrediente 
+ Jtiene puntero O, 
osea B$(J) = "b” 


La bantidad BS(*) se convierte 
en numérica y se memoriza 
en Q(+) 


A B5(J) se transfiere la 
descripción; a CA(J + 1) se 
memoriza el contenido calórico; 
aQ( + 1) la cantidad prevista 


Presenta los ingredientes (B$(+)) 
y el contenido calórico total: 
Q(+)+*CA(w) 

con un bucie de 2a 16 


El número de personas previsto 
en la receta se memoriza en el 
fichero COMP, campo 1. 
Después de la lectura del 
fichero se encuentra en B$(1) y, 
corno valor numérico, en NP. El 
valor introducido está en NR 


ducción de datos para per- 
sonas ya registradas y la 
creación de un archivo para 
las nuevas. Por tanto, el pri- 
mer parámetro a proporcio- 
nar es el nombre de la per- 
sona, que coincide con el 
nombre del fichero en que 
se memorizan los datos. Si 
el fichero no existe, o sea, la 
persona es nueva, el pro- 
grama realiza su creación 
después de pedir el acuer- 
do. Si no es así, el programa 
pasa a la introducción de la 
pesada, o sea a la introduc- 
ción de un nuevo dato (fun- 
ción que se realiza de ma- 
nera idéntica a la de los 
otros programas). 

La subrutina no presenta 
ninguna particularidad a no 
ser la estructura, que incluye 
las funciones que en los de- 
más programas están sepa- 
radas en voces de menú. 
Para esta aplicación se ha 
preferido concentrarlo todo 
en una sola subrutina para 
presentar un ejemplo de ai- 
ferentes estructuras y simpli- 
ficar los listados. 

La subrutina de impresión 
de la página 1951 prevé dos 
opciones. 


"a Impresión sólo del último 
valor 

"m Impresión total, con el 
cálculo y la presentación 
de las diferencias entre 
dos valores sucesivos. 


La primera función puede 
ser útil para un control inme- 
diato del peso. Lee y pre- 
senta el último registro escri- 
to en el fichero. 

En cambio, la impresión de 
todos los datos requiere un 
primer bucle de lectura has- 
ta el último dato introducido, 
y un segundo para el cálcu- 
lo de la variación y la pre- 
sentación. 

Si se pide la salida de los 
datos en papel, la impresión 
será continua. 


Nueva cantidad = NR* 
Q(JR/NP. 

Este valor se memoriza en el 
mismo Q(JR), y se utiliza para la 
suma del contenido calórico 
total 


El Índice IR del bucle principal 


se incrementa para la búsqueda 
de otras recetas que satistacen 
la selección 

En esta fase también O 

se presenta el nuevo 

número de personas 

Q(UR + 1) = INT 

«1 


Fin del fichero 
NOMB 


1949 


GESTION DATOS PARA EL CONTROL DEL PESO 


NOW), Selecciona la introducción en el fichero existente | 


La primera posición 


vaciaes RE + 1 


Anulación 


y 
icher 


| 


Cada registro es 
una medida (fecha y 
peso), por lo que la 
longitud media del 
fichero es de 50 a 
100 registros. En 
este caso, 100 
registros 


Escribe “1” O 


en el registro 1 | 


(*) El control sobre la existencia del fichero se «fectúa directamente en el disco 
datos y no necesita una introducción por parte del usuario 


Presentación del gráfico. El desarrollo de esta 
subrutina depende mucho del tipo de máquina 
utilizado, por lo que el diagrama sólo tiene carác- 
ter indicativo y se ha planteado a nivel funcional; 
para los detalles deben consultarse los listados. 

La primera función realizada es el cálculo del fac- 
tor de escala. Hay dos gráficos previstos: uno, 
mensual, muestra la evolución de detalle para to- 
das las pesadas realizadas en un mes. El otro, 
anual, presenta el valor medio de cada mes. Na- 
turalmente, el eje X (tiempo) tiene un número de 
divisiones que depende del intervalo temporal 
que debe cubrir. En el caso del gráfico mensual: 
se han previsto 31 divisiones, mientras que en el 
anual las divisiones son 12. 

Por tanto, en el primer caso, una división del eje X 


1950 


corresponde a un día y, en el segundo, a un mes. 
Es evidente que a las divisiones del eje Y debe 
atribuirse un valor en kilogramos. La última divi- 
sión debe indicar el valor máximo. 

Estas funciones se realizan en el primer bloque a 
la entrada de la rutina, seguidas de la presenta- 
ción de los ejes. El histograma se traza con un 
bucle en el que hay incluidas la conversión de la 
fecha y la del peso en coordenadas de pantalla y 
la presentación del histograma. 

El detalle de las funciones gráficas no se ha re- 
presentado, puesto que no puede tratarse de la 
misma manera para las tres versiones, mientras 
que en el diagrama de la página 1952 se ha re- 
presentado el cálculo en general de la posición 
en el eje X (tiempos) en función de la fecha. 


SUBRUTINA DE IMPRESION 


En MX hay el número de registros 
escritos 


Principio del bucle 


Los datos leídos se transfieren a: 
G(+) = Día 

M(x) = Mes 

P(+) = Peso 

Los dimensionados dependen 
de la longitud dada al fichero 


La presentación se hace por 
grupos de 20 líneas. En cada 
línea se indican la fecha, el peso 
y la variación respecto al peso 
anterior. La variación se calcula 
del siguiente modo: 

V() = P(I- 1) -P() 


Lectura de un carácter cualquiera 


1951 


GRAFICO 


El eje X debe contener un 
número de divisiones 
adecuado al gráfico elegido 
(12 = gráfico anual; 

31 = gráfico mensual). 

El eje Y representa el valor 
máximo de P(w) 


Principio del bucle 


Lectura de un 

carácter para impresión 
en papel o vuelta 

al menú 


ALGORITMO DE CALCULO 


Cálculo del intervalo de tiempo entre la medida Mismo mes 
ly la anterior (| — 1) 


Las dos fechas son 
de meses sucesivos 


Días para terminar 
elmes| 


Días de los meses 
comprendidos entre M(I - 1) 
y M(1) 


O—> y 


Esta segunda parte del diagrama sólo es indicativa y no se encuentra en los listados 
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RELACION DE LAS VARIABLES - APPLE 


Recetario 


=variable de entrada tecla pulsada 
en la data entry 

=buffer de transferencia de datos 
de y al disco 

=buffer de la data entry 

=blank (CHR$(32)) 

=emite un bip (CHR$(7)) para indi- 
car error 

=contador del carácter en el campo 
de la data entry 

=descripción de los campos 

=unidad disco seleccionada 

=código tecla comando activada 

=matriz cadenas de ayuda 

=longitud de los campos 

=longitud del registro 

=nombre del programa 

=apunta a último reg. de cada fi- 
chero 

=número del campo 

=número de decimales 

=nombre del fichero 

=número del registro 

=número de campos 

=número de voces del menú prin- 
cipal 

=0pción elegida 

=punto decimal 

=códigos teclas comandos 

=cadena de centrado en vídeo 

=tipos de los campos 

=CHR$(13), o sea <RETURN> 

=voces del menú 

="0" 


Control del peso 


AAS$ =buffer de transferencia de datos 
de y al disco 

BS(+) =buffer de la data entry 

BAS$ =cadena de 80 blanks 

BL$ =blank 

BP$ =emite un bip (CHR$(7)) para indi- 
car error 

cc =carácter actual en la data entry 

CX(:) =coordenadas X de los campos 

CY (+) =coordenadas Y de los campos 

D$(«) =descripción de los campos 

DR$ =unidad disco seleccionada 

DX(+) =coordenadas X descripciones 

DY (+) =coordenadas Y descripciones 

FS =código tecla comando activada 

HES =cadenas de la ayuda 

LC(«) =longitud de los campos 


LR 
MPS$ 
MX 


NC 
ND(») 
NFS 
NUC 
NV 
OPZ 
PDS 
RE 
TF(+) 
TIS 


US$ 
VOS(«) 
ZES$ 


Gráficos 
AAS$ 


B$(+) 
B 


BAS 
D 


DR$ 


=longitud del registro 

=nombre del programa 

=apunta a último reg. de cada fi- 
chero 

=número del campo 

=número de decimales 

=nombre del fichero 

=número de campos 

=número de voces 

=0opción elegida 

=punto decimal 

=número registros del fichero 

=códigos teclas comandos 

=cadena de presentación en centro 
del vídeo 

=CHR$ (13) 

=voces del menú 

=")" 


=buffer de transferencia de datos 
de y al disco 

=buffer de la data entry 

=variable usada para la construc- 
ción de los caracteres en HI-RES 

=cadena de 80 blanks 

=variable usada para la construc- 
ción de los caracteres 

=unidad disco seleccionada 


=Uusadas para la construcción 
caracteres. 


=longitud del registro 

=número registros del fichero 

=número de variables a dibujar con 
el histograma 

=número de barras para cada va- 
riable del histograma 

=nombre del fichero 

=número del registro 

=opción elegida 

=número registros del fichero 

=cadena para la presentación de 
mensajes en centro vídeo 

=descripción de la variable 1 usada 
en el gráfico 

=vector que contiene las alturas de 
las barras del histograma 


=ver F1$ 


=ver Vi («) 


1967 


Menú general. El procedimiento Recetario en la versión 
DOS se ha subdividido en dos programas principales 
más un subprograma dedicado a la presentación de los 
gráficos. En el menú general (Main) puede hacerse la 
carga del programa Recetario o del programa Control 
del peso; mediante este último es posible cargar del 
disco el subprograma que permite realizar los gráficos 
de la evolución del peso personal. 


Recetario, Generación. Del menú general se ha 
cargado el programa Recetario, que permite crear y 
gestionar el archivo de las recetas. El usuario ha 
activado la Generación del sistema; en esta fase se 
prepara el diskette que servirá para la escritura de los 
datos creando en el soporte los datos necesarios en 
blanco. También se informa al usuario sobre el número 
de ingredientes y de recetas que podrá gestionar el 
programa. Una vez terminada la Generación, deberá 
activarse la voz 4 del Menú principal para crear el 
archivo de los ingredientes necesarios para las recetas 
introducidas. 


Determinación dosis y contenidos. El usuario ha 
activado la voz del programa Recetario y está 
buscando ahora todos los platos que tienen en el 
nombre la palabra "Arroz". En este caso, se presenta 
la primera receta identificada por el programa, y las 
siguientes se presentarán en el mismo orden de 
introducción. Además del nombre del plato y de la 
época más adecuada, en la pantalla aparece el número 
de personas y los ocho ingredientes previstos en la fase 
de introducción. Después se calculan las calorías 
totales del plato basándose en las cantidades y en los 
contenidos calóricos de cada ingrediente. 

El usuario ha pedido la modificación de dichas 
cantidades, y el programa espera que se introduzca el 
nuevo número de personas previsto para efectuar los 
cálculos. 


Gráficos. Mediante el programa Control del peso se 
carga el disco y se activa el subprograma Gráficos 
Una vez introducido el nombre de la persona de la que 
se desea presentar el gráfico de sus datos, el programa 
pide cuál de los dos gráficos debe presentar: el 
mensual o el anual. 

El usuario ha pedido el gráfico mensual y ha 
especificado el mes, identificado con el número (1 a 
12). En la escala del tiempo se han representado los 
días (1 a 31), y en la escala de las medidas se escriben 
los valores encontrados en el disco para el nombre 
pedido. El máximo de la escala corresponde al mayor 
peso introducido. 
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Menú general. En la versión MSX, el procedimiento 
Recetario está subdividido en tres programas. El 
programa de generación y gestión del archivo recetas 
está dividido en las dos primeras voces que se ven en la 
foto; para efectuar la generación de los ficheros datos 
que servirán después para formar el archivo y la gestión 
completa del archivo ingredientes necesitará activar la 
voz 1 y esperar la carga desde la cassette del 
correspondiente fragmento del programa. Activando la 
voz 2 podrá cargarse la parte correspondiente a la 
introducción de las recetas y su gestión. Esta estructura 
permite aprovechar de manera muy efectiva la memoria 
del ordenador y solucionar el problema de los archivos 
recetas o ingredientes completamente separado de la 
gestión de la dieta. 


Menú principal Recetario: Generación y Archivo 
ingredientes. El primer programa permite crear la base 
en la que generar el archivo propiamente dicho de las 
recetas. La primera voz a activar es la Generación del 
sistema para preparar la cassette datos y recibir las 
futuras introducciones. Siempre con este primer 
programa es posible gestionar el archivo de los 
ingredientes, que también debe crearse en esta fase. 


Determinación dosis y contenidos. Mediante el menú 
general se ha cargado el segundo programa del 
procedimiento Recetario. En esta fase pueden activarse 
tres funciones principales: introducción de las recetas, 
impresión y determinación dosis y contenidos; además se 
ha previsto el retorno al menú general con la carga de la 
cassette en que hay grabados los programas. En este 
caso, el usuario ha pedido la Determinación dosis y 
contenidos; el programa presenta el nombre del plato 
buscado con los ingredientes previstos y las 
correspondientes cantidades. También se calculan las 
calorías totales de la receta y se pide al usuario si desea 
modificar las cantidades previstas en la introducción, Si el 
usuario activa esta función, todas las recetas que lienen 
el nombre pedido se presentarán en sucesión 


Gráfico anual. El usuario ha pedido el empleo del 
programa Control del peso y, una vez cargado, ha y P.Máx= S0 GRAFICO ANUAL 
activado la presentación de los gráficos, que pueden 7 
abarcar el período de un año o de un solo mes. 

Como se ve en la foto, se ha pedido el gráfico anual de 
«Luis»; la escala de los valores presentará como el 
máximo el peso mayor introducido. 


1982 " 


AA | 
Extensiones y modificaciones 


Estructuralmente, el proceso es una compleja 
gestión de archivos, por lo que eventuales modifi- 
caciones o implantaciones inciden fuertemente 
en la estructura de los ficheros. 

Una de las funciones previstas es el cálculo del 
contenido calórico de cada plato. Esta función, 
asociada al programa de control del peso, consti- 
tuye un medio para controlar la dieta. Sin embar- 
go, esta comprobación, resulta incompleta. De 
hecho, para un buen control de la dieta, faltan 
dos factores determinantes. 


= Un archivo con las principales características 
alimentarias 

m Una tabla para la determinación del estado del 
propio peso. 


El primer punto puede realizarse variando la lon- 
gitud del registro del fichero «|INGR» para incluir, 
de cada alimento, otras características además 
del contenido calórico, las cuales son determi- 
nantes a fines dietéticos, como las proteínas, las 
grasas, las sales minerales, etc. 

Como ya se ha indicado, esta implantación con- 
siste en modificar la longitud del registro y en va- 
riar la máscara de vídeo asociada. 

En algunas máquinas, este método puede pre- 
sentar notables dificultades (a causa de la excesi- 
va longitud del registro). En estos casos es con- 
veniente crear otro fichero en cuyo registro pue- 
dan memorizarse los datos precedentes. Con es- 
ta solución, el segundo fichero, «paralelo» al pri- 
mero, sólo contiene valores numéricos, reducién- 
dose notablemente el formato de registro. 

Este segundo fichero contendrá tantos registros 
como cuantos hay en el primero, por lo que podrá 
ser leído y escrito con el mismo direccionado. 
Es decir, en el análisis de una receta, de-pués de 
haber extraído el contenido calórico de cada ali- 
mento por búsqueda del nombre, en el nuevo fi- 
chero debe leerse el mismo número de registro 
para extraer las otras características. 

Esta modificación no presenta ninguna dificultad 
lógica, pero puede crear complicaciones a nivel 
de programación. Por tanto, para realizarla es ne- 
cesario prestar mucha atención, sobre todo en 
los nombres de las variables, que deben ser dife- 
rentes a los usados en el procedimiento de base. 
La segunda implantación (tabla de los pesos nor- 
males) presenta menos dificultades a efectos de 
programación, porque puede configurarse como 
un programa propio y, por tanto, sin implicacio- 
nes con los otros procedimientos. Su finalidad es 


la de gestionar una tabla que proporcione las ne- 
cesidades calóricas en función: 


m De la altura 
m Del peso normal 
m Del tipo de actividad desarrollado 


A su vez, el tipo de actividad puede dividirse en 
ligera, media y dura. Por tanto, el formato del re- 
gistro se convertirá en: 


m Altura (3 caracteres, expresada en centíme- 
tros) 

m Peso normal (4 caracteres, 2 enteros y 1 déci- 
mal) 

m Necesidad calórica para actividad ligera (3 
campos de 4 caracteres) 

" Necesidad calórica para actividad media (3 
campos de 4 caracteres) 

m Necesidad calórica para actividad dura (3 
campos de 4 caracteres). 


O sea un total de 3 + 4 + (3 x 4) = 19 bytes. 
El número de registros del fichero depende de los 
valores de las alturas que se deseen memorizar; 
generalmente, el intervalo útil es entre 165 cm y 
190 cm, con paso 1. Naturalmente, deberán 
crearse dos ficheros, uno para hombres y otro pa- 
ra mujeres. 

Las funciones a incluir en el programa son: 


"m Introducción y corrección de datos 
m Búsqueda, 


La primera puede obtenerse simplemente adap- 
tando uno cualquiera de los programas ya descri- 
tos (la modificación sólo es en la máscara vídeo, 
con los DATA, y en el formato del registro). 

La segunda función, Búsqueda, consiste en pedir 
al usuario la altura, buscarla en el fichero y, si se 
encuentra, presentar el contenido del registro co- 
rrespondiente: o sea el peso normal y la necesi- 
dad calórica en función de la actividad. 

Por tanto, esta implantación se reduce a la gene- 
ración de una tabla sólo a efectos de recordato- 
rio. Sin embargo, puede insertarse en el procedi- 
miento para indicar los platos que presentan un 
contenido calórico excesivo o insuficiente. Así se 
obtiene una selección automática de las recetas; 
el plato pedido será seleccionado entre los que 
hay en el archivo según el contenido calórico pe- 
dido, que en este caso asume la función de pará- 
metro de selección. 
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El ordenador es el mejor medio para superar las 
limitaciones de nuestra memoria. Esta máquina 
puede acumular fácilmente grandes cantidades 
de informaciones sin olvidar nunca ninguna, po- 
niendo a nuestra disposición todas las posibilida- 
des de busqueda, selección y análisis de los da- 
tos memorizados. 

Estas capacidades encuentran un excelente 
campo de empleo en aplicaciones relacionadas 
con la salud. 

Muy a menudo padecemos afecciones habitua- 
les (cefaleas, resfriados, etc.), para las cuales en 
ocasiones anteriores se ha encontrado un reme- 
dio, pero que no resulta sencillo recordar el fár- 
maco o la posología utilizados para cada compo- 
nente de la familia. En esto, el ordenador resulta 
valiosísimo. Memorizando para cada componen- 
te de la familia el síntoma, el fármaco utilizado y la 
posología, se dispone de un «banco de datos» 
que puede consultarse en cualquier momento 
para solucionar una situación análoga. 

La estructura «abierta» del programa permite en- 
riquecer el archivo paulatinamente, obteniendo 
un medio de decisión cada vez más completo. 


E 
Uso del programa 


El procedimiento se divide en tres programas 
principales, cada uno con su menú y sus funcio- 
nes. El programa realiza las gestiones de: 


m Calendario de vacunaciones 
m Base de datos médica (Dala Base) 
m Factor de crecimiento 


Además, se han previsto los dos subprogramas: 


u Tablas comparativas 
m Gráficos. 


Calendario de vacunaciones 


El programa permite gestionar un calendario de 
vacunaciones para todos los componentes de la 
familia. 

Antes de utilizar el programa debe activarse la 
voz 4 que crea los ficheros. Realizada esta opera- 
ción, que se hace de manera automática, puede 
pasarse a la fase de introducción de datos. 


La voz a seleccionar es la n.* 1 (Gestión calenda- * 


rio, Fase de introducción). En ella, el usuario debe 
introducir el nombre del niño, el tipo de vacuna, la 
fecha en que se ha hecho la última y la fecha de 
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El programa no sólo se limita a este empleo, sino 
que también constituye un excelente recordatorio 
durante cualquier tratamiento médico. 

Muy a menudo suele olvidarse la posología pres- 
crita para un fármaco o se tienen dudas sobre los 
horarios, El empleo de este programa evita la ne- 
cesidad de recordar las prescripciones y la posi- 
bilidad de cometer un error. 

Lo mismo sucede con las vacunaciones, que se 
realizan con intervalos bastante largos y na siem- 
pre es fácil recordar el momento oportuno, 

Una vez más, el ordenador recuerda con toda 
precisión el calendario de las vacunaciones, las 
realizadas, e indica la conclusión de cada ciclo. 
En el procedimiento también se incluye un pro- 
grama para el control del factor de crecimiento. 
En los primeros meses de su vida, es esencial 
que el niño tenga un crecimiento armonioso y re- 
gular con respecto a los valores medios, Este pro- 
grama permite memorizar las principales medi- 
das y compararlas con las medias normales, Los 
resultados se presentan en forma de gráficos y 
permiten analizar la evolución del crecimiento, se- 
ñalando eventuales tendencias irregulares. 


la próxima. La máscara vídeo se completa con 
una línea disponible para anotaciones. 

Las salidas previstas son de dos tipos: todos los 
calendarios o el correspondiente a un solo nom- 
bre. Se obtiene un tabulado que indica, para ca- 
da nombre, la vacunación y la fecha (solamente 
del mes y los dos últimos carácteres del año). 
En la presentación también se indican las fechas 
introducidas en el campo «próxima fecha». 

De esta manera no se presentan los datos corres- 
pondientes a los ciclos cumplidos, Por ejemplo, 
para Luis se han previsto 3 vacunaciones con un 
intervalo de 2 años: a medida que se cumplen las 
fechas, se introducen los correspondientes datos. 
Así, suponiendo que la primera se haya hecho el 
12/10/1984, la máscarra correspondiente deberá 
contener en el campo «próxima» la fecha 
12/10/1986, y así sucesivamente. Con la última 
vacunación (el 12/10/1988) ya no se introducirá la 
próxima fecha y, por tanto, los datos de esta va- 
cunación ya no se presentarán más por pertene- 
cer a un ciclo cumplido, 

Sin embargo, esta lógica necesita Una clerta 
atención por parte del. usuario, puesto que debe 
evitarse la duplicación de las vacunaciones. 


En el ejemplo anterior, introduciendo los datos 
relativos a la última vacunación (del 12/10/1984), 
debe crearse un nuevo registro, mientras que pa- 
ra las siguientes el dato ya existe, y sólo es nece- 
sario modificar la fecha. Por tanto, para las si- 
guientes introducciones es preciso buscar entre 
todos los datos, que pueden referirse a varias 
personas y a diferentes vacunaciones, los corres- 
pondientes al nombre Luis y a la vacunación, 
Para facilitar esta búsqueda, el sistema presenta, 
en la introducción, una petición de nombre y de 
vacuna. El usuario puede introducir los datos en 
ambos campos, en uno solo o en ninguno. Según 
la introducción, se tendrá la presentación de to- 
dos los datos correspondientes únicamente al 
nombre, a la vacuna o a ambos. 

En el caso de que el usuario deje en blanco los 
dos campos, el sistema lo interpreta como una 
petición de nueva introducción y entonces pre- 
senta una máscara sin datos, 

Esta funcionalidad puede aprovecharse de ma- 
neras diferentes: 


"m Introducción nombre: se presentan todas las 
vacunaciones correspondientes al nombre. 
Puede emplearse como comprobación. Flag 
K8=2 

mn Introducción nombre y vacunación: se presen- 
tan los datos correspondientes al nombre y a la 
vacuna. Esta forma se utiliza para actualizar la 
fecha de la próxima vacunación. Si es la últi- 
ma, este campo debe ponerse a cero (la omi- 
sión de esta operación no produce errores, pe- 
ro presenta una línea no útil). Flag K8 = 1 

= Ninguna introducción: No se tiene ninguna 
presentación, sino sólo la predisposición del 
sistema para aceptar nuevos datos, o sea la 
creación de un nuevo registro. Flag K8 = 0. 


Data Base médica 


En el ámbito familiar es útil disponer de una «co- 
lección» de sintomas y las correspondientes cu- 
ras adoptadas. La Data Base médica permite 
crear y gestionar un archivo propio con las nece- 
sarias sencillez y flexibilidad de uso. 

También en este caso, la Generación del sistema 
(voz 5 del menú principal) es la primera función a 
activar, y su realización es automática. 

Este programa se utiliza básicamente para con- 
sulta, por lo que en él no se han incluido algunas 
subrutinas que permiten realizar búsquedas y se- 
lecciones desde varios puntos de vista. El archivo 
contiene los nombres de los familiares, el sintoma 
y la cura efectuada (además de otros campos 
cuya descripción y utilidad se describen a con- 
tinuación). Un posible uso permite buscar qué 
cura se adoptó para una determinada persona de 
acuerdo con un determinado sintoma. Por ello es 


preciso que los síntomas sean identificados con 
un nombre unívoco. Es decir, hace falta un «vo- 
cabulario de síntomas» con nombres diferentes 
para aprovechar las posibilidades de búsqueda 
del programa. 

Este vocabulario puede generarse seleccionando 
la voz 1 del menú, y permite disponer de una rela- 
ción de síntomas previstos. 

El mejor procedimiento consiste en crear por lo 
menos una parte del vocabulario a priori, o sea 
antes de introducir los datos que constituyen el 
archivo médico. El programa realizará actualiza- 
ciones automáticas cada vez que se introduzca 
un nuevo vocablo. Por tanto, se tiene una gestión 
«dinámica». Sin embargo, esta fase puede evitar- 
se introduciendo los nombres a medida que se 
presentan, recurriendo así al automatismo. 

Esto es posible porque, en cada introducción, el 
programa comprueba la existencia del sintoma 
en el vocabulario. Si no existe, avisa y pide el 
acuerdo para introducirlo. 

El usuario puede elegir las dos alternativas: si el 
síntoma es nuevo, lo agrega al vocabulario; en 
cambio, sí se trata de un error de introducción 
porque una voz ya existente se ha escrito de ma- 
nera diferente, rechaza su inclusión en el vocabu- 
lario y procede a la corrección. 

Este tipo de gestión es un vocabulario «dinámi- 
CO», O sea que se adapta en el tiempo a las nece- 
sidades variables del usuario y, por tanto, no ne- 
cesita una configuración inicial porque puede ac- 
tualizarse a medida que progresa. Sin embargo, 
es útil introducir previamente al menos los sínto- 
mas más corrientes. Para ello, después de la ge- 
neración del sistema debe seleccionarse la voz 1 
(vocabulario). 


Ultimada la introducción de los vocablos básicos, 
puede procederse a la carga de los datos. La voz 
a seleccionar es la 2 (Introducción de datos) o la 
3 (Actualización) si se desean efectuar correccio- 
nes. En ambos casos se presenta la misma más- 
cara, vacía para la introducción, o con los datos 
del fichero presentados para su actualización. 
En este caso, la máscara vídeo se presenta divi- 
dida en dos partes. La superior, que contiene 
Nombre, Fecha y Síntoma, se utiliza para la bús- 
queda, mientras que la inferior contiene elemen- 
tos descriptivos. 

Una vez generado el archivo con la introducción 
de un cierto número de datos, éste puede utilizar- 
se para seleccionar el nombre, el síntoma o am- 
bos. La máscara utilizada para la selección pre- 
senta los dos campos principales: nombre y sín- 
toma; sin embargo hay previstos otros dos: ia fe- 
cha y el modo de presentación. La fecha acepta 
los simbolos >, < e =, los cuales constituyen 
otro elemento más de selección. 

Esta ulterior selección es particularmente útil sí en 
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el archivo se incluyen niños. En el adulto, los fár- 
macos y las posologías son poco variables con el 
tiempo, mientras que en los niños pueden variar 
con su desarrollo. Por tanto es necesario poder 
seleccionar un determinado período para, por 
ejemplo, tener la presentación únicamente de los 
datos más recientes todavía válidos o de los más 
lejanos (<) para obtener una posología corres- 
pondiente a una edad diferente y que puede ser 
aplicada al hermano menor o puede resultar útil 
para un amigo. 

El último campo (Síntesis) sirve para definir la for- 
ma de presentación. Los valores introducidos son 
SI/NO. En el primer caso (Sl) se presentan todas 
las fechas seleccionadas correspondientes al 
nombre y al fármaco; en el segundo (NO) se pre- 
sentan, uno después de otro, los datos con el for- 
mato análogo al previsto para las funciones de 
Introducción de datos o Actualización. 

Las dos salidas tienen finalidades diferentes. La 
primera (abreviada) muestra la utilización de un 
fármaco en varios casos y la segunda (detalle) 
llustra, con las informaciones adjuntas, cómo se 
ha utilizado el fármaco. Por tanto puede constituir 
un «prontuario», 


Factor de crecimiento 


El programa comprueba el desarrollo del niño 
comparando algunas medidas, tomadas a inter- 
valos regulares, con las memorizadas en una ta- 
bla de valores medios. Esta tabla, que debe 
crearse con el programa adecuado («TABLAS 
COMPARATIVAS») indica para ciertas medidas 
la gama de mínimo y máximo entre la que se en- 
cuentra la mayor parte de los niños. 

Por ejemplo, para un varón, al nacimiento se indi- 
can los valores de peso 3 (mínimo) y 4,3 (máxi- 
mo); esto quiere decir que el 90% de niños pesa 
entre 3 kg y 4,3 kg, y el 10% está por encima o 
por debajo de estos valores. Por tanto, el peso de 
un niño «medio» estará en ambos valores. 
Estas tablas se modifican con el tiempo, puesto 
que los valores medios hallados con los niños 
pueden variar con los años. Por tanto, es necesa- 
rio prever la actualización de las tablas, aunque 
esta operación sea muy esporádica porque la de- 
terminación de los valores medios se realiza con 
intervalos de tiempo muy largos. La primera voz 
del menú principal que debe activarse es la Ge- 
neración del sistema, y su desarrollo, contraria- 
mente a lo que sucede en los demás programas, 
requiere la intervención del usuario. Efectivamen- 
te, después de una fase automática de prepara- 
ción de los ficheros, deben introducirse los datos 
de los niños que requiere el sistema. En la másca- 
ra vídeo que se presenta, los datos a introducir 
son: nombre, sexo (V = varón, H = hembra) y la 
fecha de nacimiento. 
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El nombre se utilizará después como «clave» pa- 
ra obtener, entre todos, los datos correspondien- 
tes a uno de los niños previstos, mientras que la 
máquina utiliza el dato del sexo para realizar los 
controles con las oportunas tablas (las medidas 
dependen del sexo). 

Además de llamarse automáticamente en la ge- 
neración, esta misma máscara puede activarse 
en cualquier momento con la voz 5 del menú (Lis- 
ta personas) para poder introducir nuevos nom- 
bres sin regenerar completamente el sistema. 
Obsérvese que, para reconocer los nombres, el 
programa sólo utiliza las tres primeras letras, por 
lo que si hay dos nombres con estas letras igua- 
les, deben poder diferenciarse, por ejemplo ante- 
poniendo a los mismos un número. 

Así si dos niños se llaman Marcos y Mario, sus 
nombres deberán introducirse en la forma: 1 Mar- 
cos y 2 Mario. En general resulta muy útil adoptar 
este sistema también para los nombres diferen- 
tes, porque para el reconocimiento de los mismos 
sólo se utilizan los valores numéricos y no hay po- 
sibilidad de confusión con los datos de otros pro- 
gramas presentes en el disco. 

Antes de la generación, y después de haber 
completado la introducción de la lista, hay que 
haber completado las tablas de comparación; es- 
ta función se realiza fuera del programa «FAC- 
TOR DE CRECIMIENTO» utilizando un procedi- 
miento adecuado. Introducidos los datos iniciales 
(tablas y listas) pueden pasarse a la verdadera 
utilización del programa. Las funciones 1 y 2 (In- 
troducción y Actualización) tienen la misma más- 
cara vídeo. Los datos a introducir son: nombre 
(con la misma simbología usada en la lista de 
nombres), fecha (día, mes, año) y las tres medi- 
das previstas (altura, peso y circunferencia cra- 
neana). La función 1 se utiliza para introducir nue- 
vos valores, mientras que la 2 sirve para aportar 
eventuales correcciones y datos preexistentes. 
La voz 4 del menú activa la presentación de los 
datos introducidos. Con esta función se presen- 
tan todos los datos relativos al niño especificado 
con el nombre (siempre con la citada simbolo- 
gía), que se presentarán en orden de introduc- 
ción. La máscara y la eventual impresión asocia- 
da contienen, al lado de cada medida (altura, pe- 
so, €. craneana), un símbolo, que puede ser «—», 
«+» O «M», que indica si el valor está cercano a 
uno de los dos límites (inferior — y superior +) o 
bien a la media (M). 

El símbolo «M» se presenta cuando la medida no 
se aparta más de + 5% de la media; el simbolo 
«—» aparece si la desviación es superior al 5% 
hacia el límite inferior y el símbolo «+» si la des- 
viación es hacia el límite superior. 

Por ejemplo, si una medida de altura hace 3 me- 
ses era de 62,5 cm y los valores máximo y míni- 


mo son respectivamente 58 y 63, su medida es 
60,5. Por tanto, el valor presentado no se aparta 
más de + 5% y le corresponde el símbolo «M» (o 
sea que está dentro de la media). 

Si la altura medida hubiese sido superior a 63,5, 
habría aparecido el símbolo «+», mientras que 
con un valor inferior a 57,5, el símbolo habría sido 
«—», Estas indicaciones sólo constituyen una ad- 
vertencia en cuanto a la situación de la medida y, 
por tanto, el estado de crecimiento del niño debe 
evaluarse en su conjunto observando los gráficos 
que muestran la evolución en el tiempo. 


Menú principal. El procedimiento Medicina está dividido 
en cinco programas, que pueden utilizarse por separado, 
y son activados con la selección de la correspondiente 
voz del menú principal. Además, en la versión C-64 se ha 
previsto un sexto módulo para generación de un 
determinado fichero datos, en el que deberán 
memorizarse (en forma numérica) los códigos de los 
caracteres en alta resolución. Este módulo (Creación 
archivo simbolos) deberá activarse una sola vez en la 
fase de inicialización de cada nuevo disco datos. 


Data Base médica. Seleccionando la voz 2 del menú 
principal, el módulo cargador envía a ejecución el 
programa de gestión Data Base médica. Por tanto, se 
tiene la presentación del correspondiente menú en la que, 
mediante una ulterior selección, el usuario podrá activar 
la voz deseada 

Debe prestarse atención a no considerar este menú como 
secundario. El hecho de que se active con una selección 
anterior sólo depende de la presencia de un módulo 
cargador (foto anterior) que presenta, en forma de menú, 
todos los programas correspondientes al tema. La carga 
se realiza sobre cinco prograrr=s separados, cada uno 
de ellos con su propio menú principal. El mostrado en la 
foto corresponde a la Data Base médica. Por tanto, se 
trata de un menú principal en el que hay incluida la 
Generación del sistema, voz que deberá activarse en 
primer lugar, 


Menú gestión síntomas. Concluida la fase de 
Generación se ha activado la voz 1 del menú principal, 
que permite la gestión del archivo de los sintomas. El 
sistema presenta las posibles funciones y espera la 
selección de la manera usual. 

Obsérvese que las funciones de Introducción y Variación 
se realizan a través de la acostumbrada data entry, por lo 
que el procedimiento Ayuda es activo 


La última función del procedimiento «MEDICINA» 
es la presentación de los gráficos. Este programa 
representa gráficamente los valores mínimos y 
máximos normales que se leen en el fichero de 
datos que contiene las tablas comparativas 
(«TABV» si la persona es de sexo masculino y 
«TABH» si es de sexo femenino). 
Conjuntamente con esta gama también se pre- 
sentan los valores medidos. Este es un detalle de 
gran interés, ya que de esta manera se tiene una 
visión sintética e inmediata de las evoluciones de 
cada magnitud. 


INITHUDUL E £ PRODRANA HEBTER! UND ILHTI 
? ECRLEMDARIO VACUMACIONES 
23 DATA BASE MEDICA 
CONTROL CRECIMIENTO 
> TABLAS COMPARATIVAS 
? GRAFICOS CRECIMIENTO 
FIM DE TAREA 


Ediciones 


Forum, SA 


Destion voces sintomas 


INTRODUCCION VDOABLOS 
VARIACIÓN UNCABLOS 
IMPRESION 

UVECUE AL MENU 
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Introducción. La foto muestra la máscara vídeo utilizada 

para la introducción de los datos. Obsérvese el campo 

síntomas, cuya gestión está bajo el control del diciones Eorun 
procedimiento de existencia. Si el dato ya está en el 

«vocabulario» de los síntornas, el sistema indica el error y 

pide si el vocablo debe introducirse. De esta manera, el 00 mt DEME1/ 4/83 
usuario puede 8nriquecer el repertorio a su disposición si 
el vocablo es nuevo, o bien aportar las debidas 
correcciones en caso de errores de escritura de los 


síntomas ; o) aspirina 
dos comprimidos al día 


resfriado 


siempre despues comidas 


'EOOoNoc__ o 
UD: 
Í Í 


Selección. La voz 4 del menú principal activa el 

procedimiento de búsqueda, permitiendo selecciones 3 
parametrizadas. E-G.S. Ediciones Forum 
Los parámetros son los mostrados en la máscara, y el 

usuario puede utilizarlos todos o sólo en parte (por 

ejemplo, en la foto se muestra una selección que 

prescinde de la fecha). En el segundo caso debe no Bs Jose 
indicarse por lo menos uno, puesto que si no se hiciese . resfriado 
así, se generaría un error. Oc A HHZHA 
Además, en la máscara hay el campo síntesis que indica 2515 

la forma de presentación de las salidas. Introduciendo 

NO (no síntesis) se tiene la impresión completa de los 

síntomas. 


Presentación de los datos seleccionados. Utilizando 

los parámetros introducidos con la máscara anterior, el DEA 

programa busca en los datos que, en los campos A AD 
especificados, tienen los mismos valores, y presenta 

desde el primer grupo hasta la última grabación que 

satisfacen la petición del usuario. 


aspirina 


dos compriMidos 


pro despues comida 


Selección con fecha. La foto muestra una combinación 

diferente de los parámetros de selección. En este caso se : : 
ha pedido la impresión de todos los registros A a 
correspondientes al nombre José y con fecha 4/82, 

independientemente del síntoma. 

Utilizando el campo fecha como elemento de selección, 

también debe especificarse la selección lógica a 

comprobar. En este caso se utiliza el símbolo "=", y 

sólo se seleccionan los registros que contienen el valor 

4/82. Los otros operadores introducidos son “<” y ">", el 

primero para seleccionar todas las fechas hasta el valor 

de referencia (4/82) y el segundo todas las superiores, o 

sea a partir del valor de referencia. 
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Presentación con síntesis. Para una consulta rápida es 
útil disponer de una forma abreviada de presentación. 


Introduciendo «Sl» en el campo síntesis de la máscara de AD RA 
selección, se tiene la forma de presentación iniciada al EL 
lado, que permite presentar más datos en la misma 11 / 4/83 


máscara. Naturalmente, todo lo indicado para la lógica de tiron muscular 
novocaina 


selección no varía, porque el campo síntesis sólo sirve / 8 
para variar la forma de presentación. 


Calendario vacunaciones: Gestión del calendario. La 
máscara presenta únicamente dos campos: Nombre y 
Vacuna; introduciendo oportunamente los datos se tiene 
la selección automática de la función, 

Las posibles combinaciones son: 

1/ Introducción de ambos campos: si los valores digitales 
existen se leen en el registro correspondiente y los 
datos se presentan en pantalla para eventuales 
variaciones. 

2/ Introducción de sólo el nombre: los registros 
correspondientes se presentan en la pantalla (por 
tanto, se trata de una selección menos restrictiva que 
la anterior). 

3/ Introducción del símbolo «>»: introduciendo en los dos 
campos (Nombre y Vacuna) el símbolo «:», el 
programa queda a la espera de nuevos datos 


Introducción. En la máscara anterior (Gestión 
calendario) se han introducido los dos símbolos ««w», por 
lo que se tiene la presentación de la máscara para la 
introducción de datos, y el usuario puede crear un nuevo 
registro. En el campo indicador se pone un 1, que 
identifica el calendario activo. Mts 


ñiberto 
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antitetanica 


12/ 3/19895 
13/ 414/1985 


Selección sobre el nombre. Seleccionando solamente el 
campo Nombre (el campo Vacuna tiene el símbolo «sx» se 
tendrá la presentación de los datos correspondientes al e ediciones Forun 
nombre introducido. 


AA —_A4+ enn 


CTRLAY AYUDA! 


1989 


Presentación. La foto muestra la salida después de la 
selección del nombre de la figura anterior. 
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proximo introduccic 


"TT 


Variación. Para realizar variaciones de datos ya 
existentes en el archivo debe introducirse el nombre de la 
vacuna en la máscara de selección. De esta manera, e 
registro queda identificado univocamente y no se tiene la 
posibilidad de error, El nombre solo (ver foto anterior) no 
es suficiente para identificar con seguridad el registro a 
variar. Introduciendo en el campo indicador el número 0, OMbR 
el calendario se borra del archivo. Yacun: 


calendario 


Presentación de datos para la variación. Ei programa 
reconoce la presencia de ambos campos y activa el 
procedimiento de búsqueda. Si existe un registro cuyo 
contenido corresponde al nombre y a la vacuna 
seleccionados, se lee y se presenta en pantalla, 
activando los flags necesarios para permitir variaciones 
de los datos. 


Factor de crecimiento.Seleccionando la voz 4 del menú 
principal, se tiene la activación del programa de Gestión 
del factor de crecimiento. 

También en este caso, el menú que se presenta es un 
menú principal, por lo que primero hay que seleccionar la 
Generación (una sola vez para cada diskette de datos) 
Sólo después de esta función puede pasarse a las otras. 


Generación. Al final de la preparación de los ficheros 
deben introducirse los datos iniciales de cada niño cuyo 
crecimiento debe seguirse mediante el programa. 

La foto muestra la máscara vídeo correspondiente a 
esta fase. Obsérvese que el procedimiento presupone 
la existencia de las tablas de valores normales que, por 
tanto, ya deberán estar presentes. 


Los datos correspondientes a la máscara anterior se 
completan con los valores medidos al nacimiento, que 
representan el primer dato del niño. 


Impresión. Introduciendo las medidas a intervalos de 
tiempo regulares, se obtiene un archivo datos 
correspondiente a cada niño. Seleccionando la voz 
Impresión se obtiene la presentación en una tabla de 
resumen que ya puede dar algunas indicaciones. 


Tablas comparativas. El tercer programa del 
procedimiento permite crear y gestionar tablas en las 
que se insertarán los valores mínimos y máximos de la 
altura, el peso y la circunferencia del cráneo en 
determinadas gamas de edades. 

Estos valores se utilizarán después para comparar los 
introducidos por el usuario (a través del programa 
Control crecimiento) con la media. 

Las funciones previstas en el programa son: 
Introducción 

Impresión de las tablas 

Variaciones 

Generación del sistema 

La impresión de las tablas, mostrada en la foto, puede 
realizarse en impresora o en pantalla. En este último 
caso, las dos tablas (Varones y Hembras) se presentan 
en secuencia, con pausas en cada pantalla llena. 
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Álicia 
Sexo) H 


NACIMIENTO 
di a] 16 CU 1 Eu 


A A E ION 
ICIRLEY : AYUDA 


INOMbr e! licia 
dí al 16 535 Ll En 82 


altura m3d1 (cm) 
03.6 (Ky) 
IC-CLaneo] 35 


INTRODUCIR LOS DATOS DE NACIMIENTO 
ICIRLAY : AYUDA 


Pulse una tecla para volver al menu 


00 O! 


ax 


so 
PRAOADIRIO ADA » 


DANNA DOS 
NOOMDUININNS 
” OSADO 
DOLAR de 
A RADO UIRO 
pp DOS 
NAODOLUNO--1000 


una tecla para continuar 


1991 


MAA A 
Los listados / Versión Commodore 64 


Como el lector habrá observado, a medida que BASIC Advanced va progresando, los programas aumentan en complejidad. Esto da 
como resultado un tiempo de ejecución muy prolongado en las versiones en que se utiliza el soporte magnético de cinta. En consecuen- 
cía, y para obviar por lo menos en parte este inconveniente, a partir de este número, los listados de los programas correspondientes a las 
versiones Commodore 64 se publicarán para disco. Para los usuarios del Commodore 64 que no dispongan de unidad de disco, el paso 
de los programas a cinta no constituirá ningún problema si toman como guía el correspondiente listado de la versión MSX, teniendo en 
cuenta que, además, a lo largo del texto se indicarán las oportunas instrucciones en los casos en que haya algún procedimiento especial 
para cinta. En cambio, para los programas del sistema MSX, no hay más remedio que continuar con la cinta porque, de momento, en el 
mercado aún no ha aparecido la correspondiente unidad de disco. No obstante,cuando ésta se encuentre disponible, los usuarios que 
deseen convertir sus programas a la versión disco podrán tomar como guía los procedimientos de la versión Commodore 64. 


Main general 


E 
20 REM OK MAIN GENERAL MEDICINA C-64 * 

30 REM AA AAA dd: 

35 POKES3289,6:POKES3281,6:POKE650, 8: PRINTCH!:$(1427CHR$(8) 
40 PRINT"0Y": A EL Ad CORRESPONDIENTE" 
2 PRINT"IIBRAAIRBDADIAL PROGRAMA PEDIDO 

44 PRINT"IIRADDAIADES 21201 CALENDARIO WACUNACIONES" 

46 PRINT"MNDI ed DATA BASE MEDICA" 

47 PEINT"ANM CONTROL CRECIMIENTO" 

49 PRINT"IIINDBBBBIOCA AO TABLAS COMPARATIVAS" 

49 PRINT"MIMDOBRDADE SEDA] GRAFICOS CRECIMIENTO" 

50 PRINT"IMRADIDABIC DEN FIN DE TAREA" 

51 INPUT "MDIODIRBRBBICUAL : “5R 

52 IF R+0 THEN PRINT"0J":END 


E] HEN 49 
57 PRINT"IIOAONEOa"SPC(S) "ESPERAR LA CARGA, POR FAVOR" 
€£0 ON R GOTO 100,200,300, 400,508 


100 PRINT"*POKE43, 1: POKE44,8:POKE45.,3:POKE46,8:POKE47,3:POKE43,8" 
110 dd 8:POKE4096,0:LOAD"CHR$(34)"SC"CHR$C34)",8" 


120 GOTOG9 


200 PRINT"MEPOKE43, 1:POKE44,8:POKE45,3:POKE46,8:POKE47,3:POKE48,8" 
210 PRINT"POKE49,3:POKES5B, 8:POKE4996,0:LOAD"CHR$(34) "DB "CHR$(34)",8" 


G0T0698 
300 PRINT"*MAPOKE43, 1:POKE44,9:POKE45, 3: POKE46,8:POKE47,3:POKE48,8" 


310 PRINT"POKE49,3:POKESO,8:POKE4096,0:LOAD"CHR$(34)"CF"CHR$C34)",8" 


320 60TO608 


400 PRINT"32POKE43, 1 : POKE44, 8: POKE45,3:POKE46,8:POKE47,3:POKE48,9" 
410 PRINT"POKE49,3:POKESO,8:POKE4996.,0:LOAD"CHR$(34)"TB"CHR$(34)",2" 


429 GOTO 600 


500 PRINT"3BPOKE43, 1:POKE44,8:POKE45.,3:POKE46,8:PDKE47,3'POKE48,8" 
510 PRINT"POKE49,3:POKESO, 8:POKE4996, 0:LOAD"CHR$(34)"GR"CHR$(34)",8" 


600 POKE198. 10:FORL=631T0640 : READN : POKEL + N:NEXT 
$510 DATR19,13,145,145,13,82,85,78,58,13 


DB 


D REM A odo do 

1 REM 4 DATA BASE MEDICA + 

2 REM ARANA 

4 hs Io MAIN A 

3 

14 FORT=1T0400:NEXTT:PRINT"IR; :X=7:4=10:COSUE 11000 


15 PRINT"INTRODUCIR EL DISCO DATOS":PRINT"MORDMPDMDDRD Y PULSAR LUNA TECLA" 


15 FOR T=1 TO 400:NEXTT 
17 CETR$:1F R$="" THEN 14 
19 DIM ISc100), JSc1005 


26 DIM B4(20),TPC20>,LC(20),NDC20) ,0X(20),04(20) + DXC20),DY(20),AC$(12> 


22 DIM TF(15),D$(20) +, W0$(20) 0612) 


24 BLg=" ":PDg=". "ASE" NSg= "4: SUE="M":GIU$="M":HO$="30: SL G=" 20 


29 US$=CHR$(133):%X0=8:Y0=1:NW=6:XC=7:WC0=6:8Z=2:POKE 650,123 


26 PRINTHOS : COSUE1300* PRINTHOS : PRINTCHR$(142):REM dk MENU” 4 


27 1F 0P2=6 THEN CLR:LOAD"MEDICINA".S 
30 COSUB20000 

35 FOR I=1 TO 15:READ TFXI>:NEXTI 

49 FOR I=1 TO 12:READ CG<1>:NEXTI 

160 REM 

120 ON OPZ GOSUB 16900,2000, 5090, 14000, 12000 
130 REN 

1536 GOTO 26 

200 REM AR olla 
1300 REM ARA IORO RRR 
1301 REM * MENU PRINCIPAL * 
1302 REM ARA ARI AAMROIIAO 
1303 LY=-1:POKES3281,6:POKES3290,14 


1395 U$=" MENU  ":0P2=0:Y0$COPZ>=" “RIA [M7 Tak ":GOSUB 7000 


1307 REM 
1309 OP2=1 
1310 REM 
1312 REM 
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1315 


a POKES35+21,1:POKE2040, 13 

FOR 1=0 TO 62:READA:POKES32+1,M:NEXTI 
POKESS+39,1:C1=50:£2=111 

GOSUB 1363 

GOSUE 1396 

CET OPZ$: IF OP2$="" THEN 1327 

IF OP2$=GIU$ THEN C2=C2+16:0P2=0P2+1 :COSUB1363 
IF OPZ$=SU$ a C2=02-16:0P2=0P2-1:GOSUB1363 
IF OPZ$=U3% THEN 1381 

IF ASCCOPZ$)=25 THEN COSUB 1456:G60T01205 
GOTO 1327 

REM 4 

IF C2<111 THEN C2=C2+16:0P2=0F2+1: RETURN 
IF C2>191 THEN C2=C2-16*0P2=0P2-1' RETURN 
POKESS,C1:POKESS+1,C2 

RETURN 

REM_4k 

A a, E A 

GOSUE 11000 

PRINT"3a"5VOSCOPZ) 

FOR T=1 TO 1000:MEXTT 
POKESS+21,)PEEK(SS+21)AND234 

RETURN 


REM AA 
6 REM 
FOR J=1 TO NV:READ VOS$(J>:NEXTJ 


RE AAA IR RR 

FOR II=1 TO NY 

X=XC:Y=118S5Z+WC 

COSUB1 1000 

PRINT"A"5WOSCIT) 

NEXT 11 

RETURN 
DATAO.,0,0,0,96,0.0,144,0,3,32,9 
DATA4,64,0.,3, 143,252, 17,112, AN 252 
DATRO,63,0,0,55,0,0,63,0,0,31,0 
DATAO.33,0.0,21,0,224,63,0,16,31.0 
DATA15,30,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA"1- [ESTION VOCES SINTOMAS" 
DATA"2- «WHTRODUCCION DATOS" 

DATA"3- ACTUALIZACIÓN " 

DATA"4- ELECCION " 

DATA"S- IENERACION DEL SISTEMA" 
DATA"0- —IH DE TAREA" 

REM do HELP MENU” doo 
PRINTCHR$(197>:PRINTCHR$(14) 
POKESS, 255: POKESS+1, 115: POKESS+39,6 
POKESS+40,6:POKES3+41,6 
POKESS+21.7:POKE2040, 13: POKE2041, 14: POKE2042, 15: POKESS+29, 4 


'FORN=9T062 :READO: POKES32+M, 00: NEXTH 


FORN=0T062 : READO: POKES36+N, 0: NEXTN 
FORN=BT062 : READO: POKESSO+N, 0: NEXTN 
POKESS+39, 1 :POKESS+40, 1: POKESS+41., 1 

POKE 53281,6 

ERIN A 0 AM eee 1 
FOR I=1 TO 15:PRINT"mMi 15: NENTI 
PRINT" Du __ _— E q _— QzE AHHH 
PRINTCHR$C(190:PRINTTAEC?> "MIDA A TO TL 
POKESS+2, 255: POKESS+3, 145: POKESS+9, 245: POKESS+5, 130 
PRINT"XIMMMDESPLAZA REAJO: " 

PRINT"MIABDESPLAZA ARRIBA: " 

PRINT"EMBBLINTRODUCE OPCION ELEGIDA: " 

PRINTTABCS) "MIA O 1 MAA AMO AL 
GET_ R$: IFR4=""THENIS13 

POKESS+39,6:PRINT"01" : RETURN 

DATA3, 255,192, 12,0,32,16,15,16,32,56,9,32, 109,3 
DATR64,40,4.,64,40,4,64,0, 4,93, 206,228, 21,72,154 
DATAS1.206,228.381,66,164,93,46,1423,64,0,4 

DATAG4, 40. 4,64.40,4,32,109,8,32,56,8,16,16,16 
DATA12,0,32,3,255,192 

DATA, 255, 192,12,0,22, 16,32, 16,32, 120,8.32. 192,8 
DATAS4. 120,4.64,22,4.£4,0,4,93,206,228,81,72,164 
DATAS1, 206, 222,81,66. 164,93, 46. 148,64,0.4,64,15,4 


1568 DATA64,120,4.32,12.9,32,120,3,16,16,16,12,0,32.3,235, 192 


2097 


8 DATAO.6,0,7,255,224,24,0,24.96,0,6,128,0,1,129,1,125 


DATA134, 131, 129,132,2,129,132,9,129,142,0,129 
DATA132,0.,122,132,0,129,132,0.129,123,0,1,96,0,6 
DATAZ4,0,24,7,255,224,0,0,0.0,0,9,0,0.0,0,0,0 
REM FIN DEL MENU PRINCIPAL 


REM 
E Ak PRESENTA MASCARA dk 
FORIS1TODS: A ¿Y=DY (1) :G0SUB11000:PRINT"A "DECIA HEXTI 


IF TPLJ)OS AND TPCJ)<4 THEN 2060 
XSCACJ) ¿CEJA ¿COSUB1 1000: PRINT"h")BECJO 
GOTO 2130 

pil e Rd TPCJ)=1 OR TP(J)=2 THEN L3=M3+-GOTÚZ0ES 
IF Ni=1 THEN A$=C$:G0TO2095 

FOR I=1 TO Ni-N2-1;A$=A$+C0$:NEXTI 

IF N2=0 THEN A$=A$+C$:G0TO 2995 
AS=A$+PDS$ 

FOR I=1 TO N2:A$=A$+"0":NEXTI 
XECACIO + W=CY CJ) :GOSUB 11000 

PRINT "MAS; "a" 

Bs 2="" 
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2098 
2100 


FOR K=1 TO N1-N2-1 
ab Dr 


2105 NEXT 


2106 
2110 
2120 
2130 


IF Nes THEN ES(J>=B$CJ)+NS$:GOTO 2130 
BSCJ)=BSCJ)+PDS 

FORK=1TON2: ESC =ESCI)HNGS: NEXTK 

NEXT J 

RE 


3020 REM 


3870 
3220 
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REM 
J=1 


REM 
HC=J + X=CXUNC) + W=CY INC) 
CC=1 


GOSUB 3248 
IF FS=3 THEN RETURN y 
IF FS=Q THEN 3108 
IF FS>4 THEN 3218 
GOTO 3120 
REM CARACTER 
=J+1:1F JONUC THEN 3030 
GOTO 3048 
ON Fs GOTO $130. 9159, 3170, ¿3190 
: 4 


40 
IF J<NUC THEN J=J+1:GOTO 3040 
FS=0:G0TO 3030 

IF CC<LCCJ) THEN S=1:CC=CC+1:X=X+1:G0SUB 11908:G0T0 3660 
FS=0:GOTO 3100 

IF CC>1 THEN S=-1:CC=CC-1:X=X-1:GOSUB11000:GOTO 3068 
€ ¿GOTO 3035 


IF FS>8 THEN FS=0:G00TO 2069 
IF FS=3 THEN FS=8:GOTO 3100 
RETURN 

REM 


ps 4 LECTURA DE 1 CAMPO xk 


FS=0 

IF TPONC>=4 THEN RETURN 

IF TPCNCI=2 THEN GOSUB 9000 :RETURN 

IF MIDSCBSCNCI,+CC,1)=PDSF THENX=X+S:CC=CC+S 

GOSUE 11000 

GET AS:IF A$<>"" THEN 333 

re NBcor ¿PRINT" a; G0SUB1 1000: PRINT"A"¿MIDS$CBS(NC),+CC, 1); 
Gl 

TFASCCAS)=190RASCCAS)=200RASC(AS)=1470RASCCAS$)=148 THEN 3330 
PRINT"MA" AS; 

CASASCCA$) 

FOR I=1 TO 15 

1F TFCI=CA THEN FS=1:1=15:G0SUB3€30: RETURN 

MEAR THEN RETURN 


1 
IF TPONCI<>1 THEN 3450 
IF CA=45 OR CA=46 ORC(CA>=43ANDCAC=57>THEN2420 
GOTO 23330 
IF rre THEN3450 
GOSUB 
IF SMP=i THEN 3410 
5=1:COSUBE 3520 R 
IF CC=LCCUNC) THEN RETURN 
eL ML: GOTO 3310 
E 


14] 
EN Xk TRASFERENCIA AL BUFFER Ax 
IF CC=1 THEN SN$="":GOTO 2598 
SN$=LEFTSCBG CNC, CO-1) 
IF CC=LC(NC) THEN DE$="":GOTO2610 
N=LC<NCI=CC : DES=RIGHT$CBFCNC) ¿Ny 
ESCNC)=SNI+AS+DES 
RETURN 

REM 
REM 4 COMANDOS dk 
REM 


IF FS>5 THEN 3710 
RETURN 


IF FS=9 THEN GOSUB 13000:RETURN 
IF FS=8 THEN GOSUB 40820:RETURN 
IF FS<8 THEN RETURN 

per TUN G0sUB 3790," 3910 


Ren Wk INSERCIÓN ak 
REM 


IF CC=LCCNCITHEN RETURN 

IF CC=1 THEN SN$="":GOTO3800 
SN$=LEFTSCBF (NC), CO-1) 
N=LC<ONCI=CC+1 :DES$=RIGHTFCES (NC), NA 
C$=BLS$ 

AF=3N$+C4+DE$ 
BSUNCI=LEFTE(AS+.LOCNCI) 
ARA: 
R=CAUNCO ¿Y=CW CNC) :GOSUB 11000 
ERA 

REM 


PRINT _B$(NC>:S=-1 
IF RIGHT$C(BS(NC),1)=PD$ THEN 3730 
RETURN 


REM 
REM ARA BORRADO Hook 
REN 


IF TPONCI<O1 THEN 3950 
IF MIDS$CBS(NC>,2,1>=PD$ AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 
IF CC=LCC(NC) THEN DES$="":GOTO 3930 
N=LCCNCI=CC: DESF=RIGHTSCBGONCI ¿NN 
SN$=LEFTSC(BSFCNC),CC-1) 
IF TPCNC)=1 OR TPNC)=2 THEN C$=NS$:GOTO 40109 
C$=AS$ 
BO Surenescs 
XX= 
X=CXCNC) :Y=CYUNC):GOSUB 11000 
XSARiY= YY 
PRINT BS(NC):S=1:RETURN 
REM dado ALINERDOS FAR 
IF LCCONC>=1 THEN RETURN 
Ni=LCCNC>-CC+1 
IF CC=1 THEN ES(NC)="":G0T04100 
AA AAA CC-1) 

F TPCNCI=1 e TPONCI=2 THen 4150 
FOR lI=1 TON 
BSÍNOIA BS CNCI+BLE 
NEXT 1 


GOTO 4190 
FOR I=1 TO Ni 
e 
A 
IF RICHT$CBSF(NC), 12=PDF THEM BS(NC)=BLI+LEFTECBSONCO,LO(NCI=10 
ASCXUNC) 3 Y=CYONCO :GOSUE 11000 
a BS(NC> ¿RETURN 
51 


REN 

REM 

SHP=0 

IF CC=1 OR CC=LCONC) THEN SHP=1: RETURN 

FOR I=1 TO LCC(NC> 

IF MIDSCESCNCI, 1, 1)=BLF THEN I=LC(NC) :SHP=1 : RETURN 
HEXT I:RETURH 


REn 

REM 

REN 

REM VARIACIONES ik 
REN 

GOSUB 6000 

PRINT HO$:GOSUE 7090 
NF$="ARC" :GOSUP 6200 


Pñ=1 :COSUEEIOO: INPUTRZ., ARS 

MA=VALCARS) :GOSUB 56400: COSUBSEDO 

COSUB2000 

GOSUB 3000 

IF FS=6 OR FS=9 THEN 5095 

IF FS=7 THEN RETURN 

IF VALCES(2))731 OR VALCB$(2))<0 THEN GOSUB 9159:GOTO 5010 

1F YALCES$(3))>12 OR VALCB$(32><0 THEN GOSUB 9150:G0T0 5010 
COSUB 6000 

0=0:K5=4:GOSUE 14032 

NF$="ARC" :GOSUB 6208 

FOR RE=2 TO Mx STEPZ 

IF JSC(RE>=M THEN 5600 

PA=JSCRE) :CGOSUB 6800 

INPUTR42, ARAS 

ESC19=LEFTSCARS. 15): B$(29=MIDSCARS: 16,2): BSC3)=MIDSCARS, 18,2) 
ES(4=MIDSCARS, 20,2) :BSCS)=MIDICARS, 22,20): ES(6)=MIDF CARS, 42,25) 
PA=JSCRE+1 >) :COSUBES00: INPUTRZ.+ BB 
BS$(73=LEFTSCBBS, 25) :BSCSI=MIDSCEBS, 26,25): B4(9)=RIGHTSCERS, 25) 
AC$LLO=ESC2I ABC ABI (4) ACICLIRBICS) 
PRINTHOS :0P2=6 : GOSUB7006 

OPZ=2:GOSUB 7048 

FOR I=1 TO 9:TPC(1)=5:NEXTI 

2=15:Y=5:GOSUB11000:PRINT"2? = OZ SIGUIENTE" 

GOSUP2000 

FORI=2704:TP<15=1:NEXTI 

GOSUB 3000 

IF F9=6 OR FS=9 THEN 5047 

IF FS=7 THEN 5609 ss 
GOSUB £600:GOSUB 6400 

IF BS(5)=AC$(2) THEN 5200 

AS=ES$(3)FL=0:00SUB17500 

IF K9=20 THEN GOSUBE480 : GOSUBE6BO:GOTOS200 

NF$="WOC" :COSUBSO00: GOSUBG200: GOSUB17535 

REM INTRODUCCION SINTOMA NO EXISTENTE 

IF BSC2)+B$C3+B$(4)=AC$(1> THEN 5209 

KM=VAL(B$(3)):REM MES 

W=C19K100)+VALCBGC(4)) REM ANO 

IF Ki=2 AND CW-INT(V/44=0) THEN GOcKM>=29 

IFWALCBS (279566 CKM>ORVAL (ES (2) )<OTHENGOSUB9150 : PRINTHOS : GOSUB7000: GOTOSOSO 
IF KM31 DR Km<a ORVAL<BS(47<0THEN GOSUES1SO :PRINTHOS : COSUE700 :GOTOSOSO 
REM 444 ACTUALIZA REGISTROS ISCRE>) E IS(RE+1> DEL FICHERO ARC 4% 
NF$="ARC" : GOSUBEODO : GOSUEE200 
PAS=BSC1I4BECZI ABE ABG CIEGOS AECI RRA 
BES=ES(7)+BLCDI+BLCD) 

PA=ISCRE) : GOSUBES09 

PRINTR2.HAS 

PA=ISC(RE+1) :GOSUESSOO 
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52559 PRINTH2, BES 

56009 MEXT RE 

5610 PRINTHOS 

5615 X=18:Y=10:G0SUB11000:PRINT"EFIN DEL FICHERO DATOS" 

5620 X=2:Y=20:G0SUB11000:PRINT"MPULSE UNA TECLA PARA VOLVER AL MENU" 
5625 SHO 0: WAIT198, 1:GOSUBS4B0 : GOSUBESOD : RETURN 


soB1 eE AER CESTION DISCO +4% 


SOLO REM oracion 


6911 REN APERTURA CANAL. COMANDOS 


5805 En =PA:R2=0 

6310 1F R1>256 THEN R2=INT<PA/256) :R1=R1-2564R2 
6815 PRINTR1,"P"CHR$(3+96>CHRSCRA )CHRSCRZI)CHREC1O 
6320 RETURN 


REM 
6999 REM -- SUBRUTINA DE SELECCION -- 
6902 l1í=1 
6904 NF$="ARC":GOSUB 6200 
6906 FOR RE=2 TO MX STEP2 
6907 IS(RE>)=0: ISCRE+1)=0 
6903 PA=RE:GOSUB 6200 
6911 INPUT42, RAS 
6913 AS=MIDSCARS, NI NL) 
6915 IF A$<>C0$ THEN 6930 
63920 l1=11+1 
6925 ISCI1)=RE 
6926 l1=11+1 
6927 ISCI1>=RE+1 


7001 REM 4%k CARGA LOS DATA xook 
7003 L=LENCYOS(OPZ))=3:L$=RICHTSCVOSCOPZ7,L):1F OPZ=0 THEN 7003 
7004 Uf="x0Z "+STRCOPZA+" " 
7005 P=C30-L)/2:P$="":FORK=1TOP:P$=P$+" ":NEXT K 
7006 PRINT"3";:PRINTCHR$C14) 
7008 PRINT"MZA mr... "DICIONES DRUM. 4.%." 
7011 PRINT"MXA "¡US;" 8 " 
7012 PRINT"MAA PS; 
7013 IF OPZ=0 THEN PRINT" 35 ma"; 
7015 PRINT"MA";LE; "PS 
7020 PRINT"IDBDDADIAS A 
2030 ¿01 : 4222: COS 1 10008: PRINTS > AAA AA]qKÁ  É «ee. — 
7033 Mi A a 
15) 


7035 IF 0OP2=0 THEN RETURN 

7049 ON OP2 GOTO 7050. 7055. 7065, 7060.7110,7110 

7059 LV=27 :GOSUB20000 :NUC=1:D5=1 :GOTO7090 

7055 LW=35 :COSUB20000 : NUC=9 : DS=8 : GOTO7090 

7060 LW=104 : COSUB20000:NUC=6:DS=5:G0TO7098 

7065 LW=143: GOSUB20000 : NUC=4 : DS=4 : COTO7098 

7090 FOR I=1 TO DS:READ D$(1>,DXC1), DCI) :NEXTI 

7095 FOR I=1 TO NUC:READ TP<1>,LCCI NDC IA CAC ICY 


7110 RETURN 

7300 REM -- CONTROL FIN FICHEROS -- 

1502 IF NRIMOM THEN RETURN 

7304 PRINTHOS:PRINT"MMEL FICHERO DATOS"¿NF$; "ESTA AGOTADO" 
7306 PRINT"AMPULSE UNA TECLA PARA VOLVER AL MENU" 

7510 CETAS: IFA+$=""THEN?7510 

7528 COSUBE606: COSUBE4DO : RUN 


2 REM 
2001 5 FX INTRODUCCION A4 


RE 
8003 COSUE 7000 
2005 COSUE 6000 
2010 NF$="ARC" : q 6200 
2615 PñA=1:GOSUB 6306 
2017 INPUTR2. ARE 
2020 RE=YALC<ARS> 
3022 GOSUE 6600: COSUBG400 
23070 IF RE<200 THEN 8050 
2035 PRINT HO+:PRINT"FICHERO DATOS AGOTADO" 


1996 


PRINT"PULSE UNA TECLA PARA VOLYER AL MENU" 
POKE 193,0:WAIT A 


2040 
2045 
£050 GOSUB 2000:REM * MASCARA 
8055 


10000 


GOSUE 3006:REM + DATA ENTRY + 
IF FS3=6 OR FS=9 THEN 2003 

IF FS=7 THEN GOSUE 6400:RETURN 
KM=WALCBSC3)>:REM MES 


2 IF KM512 THEN GOSUB9150:G0TO 2050 


W=C1K1OO)+YALCBLGCI4I REM ANO 
IF Kh=2 AND (W-INTCY/494=0) THEN GGCKIM)=29 
IF WALCBGFC29)706CKM) OR WALCBFC23)<0 THEN GOSUB29158:PRINTHOS:GOSUB?OB0: GOTO 


S IF KM>31 OR KM<O ORYALCBS(4)7<0THEN GOSUB9150:PRINTHOS: GOSUB7OB0:GOTOSOSO 


A$=E+(5):FL=0:G0SUB17500 

IF K3=20 THEN GOSUBG400 :GOSUBSE600:COTOS250 
NF+$="W0C" : GOSUBEOGO : GOSUES200 : GOSUB17535 
REM INTRODUCCION SINTOMA NO EXISTENTE 

AAFSES CO ABECZDABICA BICI ESCOBAR 
BES=BSC7I+BFCOIFBSCD) 

COSUB 6008 

NF$="ARC" :GOSUB 6208 

RE=RE+1 

PA=RE:GOSUB 6209 

PRINTRZ, AAS 

RE=RE+1 

PASRE :GOSUE 6300 

PRINTR2, BES a 

PñA=1 :GOSUBE900: PRINTR2, STRECRE> 

GOSUB 6600:GOSUB 6400 

PRINTHOS:GOTO 8000 


REM 
REM RUOTINE CALCOLI 
REN 


REM RUTINA ERROR 

A=9+9Y=21; COSUB11000: PRINTS 

FOR T=1 TO 500: NEXT T 

X=9:Y=21:COSUB11000:PRINT" "RETURN 
REM RRA DATA AAA 

REM 


DATA_145,17,29.157,140,133,136,13,25,124,135.0.0.0,.0 
DATAS1,28,31,30,31,30,31,31,30.31,30,31 

REM ARRRRRR OPZ=L ARA 

DATA" 3SINTOMA".7,10 

DATAS,20,0,12,12 

REI ARRE OP ZO OICIODIooNd 

DATA" NOMBRE", 1.7, "BFECHA".24,7,"2",31,7,"/",234,7 
DATA"3SINTOMA", 1,10, "SFARMACO", 1,143 "SPOSOLOG. ", 1, 16. "9NOTAS",1,20 
DATAS. 15,0,8,7,1,2,0,29,7,1,2,0,32,7,1,2,0,35,7 
DATAS,20,0,13,10,23,25,0,13,14,3,25,0.13,16,3,25,0,12,12 
DATAS, 25,0, 13,20 

A ES 


2 DATA" NOMBRE". 7,9, "SSINTOMA".7,11,"9FECHA",7,13:"/",22,13,"RSINTESIS".7,15 


DATAS,15,0,12.9 
DATAS, 20, 0,18,11 


> DATAS,1,0,12,13 


DATA1,2,0,20,13 

DATR1,2,0,23.13 

DATAS.2,0,13,15 

REM ARO OP ZORRO: 

DATA" INOMBRE", 6,7, "SFECHA".6,10,"/",15,10,"/",15,10 
DATAS,15,0,13.,7 

DATA1,2,0,13,10 

DATA1,2,0,16,10 

DATA1,2,0,13,16 

RED ROOIOIO d 


ú REM 


REM Re A EN Y AER 
POKE 211,X 

POKE 214,Y 

SYs398732 

RETURN 


REM 
e Ak GENERACION SISTEMA xk 


GOSUB 7069 

X=7:Y=8:G0SUB11000: et a E EN CURSO" :Y=Y+2:G0SUB11900 
INPUT"CONTINUO (SIZNO>M"; 

IF R$="NO" THEN RETURN 

IF R$<>"SI" THEN 12010 

X=5:Y=14:GOSUB1 1000: PRINT"IESTE PROGRAMA PREVE a MAXIMO" 
X=10:Y=Y+2:G05UB11000:PRINT"DE 2 100% NOMBRE 
4=9:Y=Y+2:G0SUB11000:PRINT"Y DE 31 20% VOCABLOS" 

GOSUB 6008 

ARS=" 1" 

FOR M=1 TO 19:AR$=AA$+"4":NEXTM 

REM FORMACION REGISTRO TIPO 
OPEN2,8,3, "9: YO0C/,L, "+CHR$<21) 

PA=1:GOSUB 6808 


75 PRINTH2., ARS 


4 
REM PREPARA PRIMER REGISTRO 
CLOSE2 

ARS="1" 

FOR M=1 TO 74:RAS$=RAS+"4": NEXT M 
OPEN2,8,3,"B:ARC,Lo "+CHR$(76) 
PA=1:GOSUB 6300 

PRINTH2, ARS 

REM PREPARA PRIMER REGISTRO 
CLOSE2 : GOSUB6408 

PRINT HOS 


1997 


12107 
12110 


X=7:Y=5:GOSUB 11009:PRINT"RFICHEROS DATOS GENERADOS” 


X=2:Y=Y+15:G0SUB11000:PRINT"APULSE UNA TECLA PARA VOLVER AL MENU " 


POKE 198,0 :WAIT 198,1 

RETURN 

REM Erro 

Lia JR AYUDA dE 

POKE 53280,6:PRINTHOS; : A A 
PRINTTAB(S)"MACRSR RIGHT = MUEWE A DERECHA  " 


PRINTTABCS)"MALCRSR LEFT : 3 MUEVE A IZQUIERDA" 
PRINTTABCS) "MACRSR UP : Ñ MUEVE ARRIBA 

PRINTTAB<5>"MMCRSR DOWN: 2 MUEVE ABAJO y 
PRINTTABCS)"MA Fi” + E ANULACION ” 
PRINTTABCS) "MA F3" : 3 INSERCION ba 
PRINTTABCS) "MA FS” : 1 BORRADO Y: 
PRINTTABCS) "MA F?” : MH RETORNO AL MENU  " 
PRINTTAB(S) "MA FS” : Hi INTRODUCCION sa 
AR 1d : EH AYUDA > 

mM 
PRINTTABCS) "MARE TURN El ALINEAR bl 


PRINTTAB(6)"MAPULSE UNA TECLA PARA VOLVER" 
GETR$: IFR$=""THEN13066 

PRINT HOS:PRINTCHR$(14)>:POKE 53220. 14 
RETURN 


REN 
REM dk BUSQUEDA dk 
REN 


GOSUB 6008 

NF$="ARC" :GOSUB 6200 
PA=1:GOSUB 62300 
INPUTHZ, ARS 
MA=YAL<ARS):GOSUB, 6690 
GOSUE 7009 

GOSUB 2000 


E COSUB 3000 


ASASCUBGC6)): BSASCUBGCI)) :MSVALCBSC4)) :AN=VALCBFCS)> 
IF FS=6 OR FS=9 THEN 14010 

IF FS=7 THEN GOSUE 6400: RETURN 

1F M>12 THEN GOSUE 9150:G0T014013 

IF A=73 OR A=206 THEN 14024 

IF A=83 OR A=211 THEN 14024 

COSUES 150: 607014615 

IF AN=6 OR M=0 THEN 14039 

as Pao AND B>62) AND B<>35 THENGOSUB9150:G0T014015 
0=0: NUC=2 

FOR b=1 TO NUC 

IF TPCM)72 AND ASCCLEFTSCBSC MN), 1)7=32 THEN 14100 

IF ASCCULEFTSCBGCN), 15=35 THEN 14100 


32 COS=B+ CH) 


HL=0:NI=0: sr ESTRAE NI ED NL 
FOR D=1 TO NUC 

IF D=ll THEN 14052 

NI=NT+LC<I) 

NEXT D 

NL=LC<DA :NI=NI+1 

IF NI=16 AND NL=20 THEN NI=22 
COSUB 6990:REM SUBRUTINA DE SEL. 
pr 650 THEN 14080 

=1 


FOR G=2 TO Mx 
JS(G6>=15(G):NEXT 6 

COTO 14100 

FOR K=2 TO Mx 

FOR L=2 TO Mx 

1F JS(K3=ISCLA THEN 14099 
NEXT L 


li 
IF K5=4 THEN RETURN 
REM -- BUCLE DE IMPRESION -- 
NF$="ARC":GOSUB 6208 
PRINT HOS:PRINT"33" 
¿=10:Y=10:G605UB11000:PRINT"BXA1EDE PRESENTACION EN VIDEO" 
X=10:V=4+2:G0SUB11000:PRINT"EXAL2EOH IMPRESION EN PAPEL" 
Y=+2:005UB11000: INPUT"CUAL ";SC 
IF SC<1 OR SC>2 THEN 14160 
PRINTHOS :OPEN4, 4 
IF SC=2 THEN CMD4: PRINTCHR$C13);CHR$(17) 
IF A=78 OR A=206 THEN 14187 
PRINTTABOO "9 LO 507 ¿3 ";CO$:PRINT 
4 El THEN N9=5:G0TO14189 
a ni THEN PRINTH4 :PRINTCHR$(146>; 
FOR L=2 TO MXSTEP2Z 
IF JS(L>=0 THEN 14245 
PA=IS(L>:COSUB 62300 
Aa A 
K5= 
ESC1)=LEFTSCARS, 15) :B$C27=MIDSC(ARS, 16,2): BFC3)=MIDSCAR$, 18.2) 
ES(4)=MIDSCAR$, 20,2): B$CS)=MIDECARS, 22,20) : BS(6)=MIDFCAR$. 42,255 
PA=JSC(L+1> :GOSUEGDOO : INPUTRZ. BES 
ESC7I=LEFTECEBS, 25): B5C8)=MIDECBELH, 26,25): BF(9)=RIGHTSCBBS. 25) 
IF B$(4)="00" THEN B+(9)="100" 
GOSUB 155300 
IF E$(4)="100" THEN ES(4)="2000" 
IF KS=0 THEN 14345 


IF SC=2 THEN CMD4 :PRINTCHR$C17); 
IF A=33 OR A=211 THEN GOSUB 15009:G0TO 142325 
GOSUB 15059 

IF SC=2 THEN PRINTR4:GOTO 14345 
IF W1<4 THEN 14345 


X=5:Y=23:Y1=0:C05UB11000:PRINT"MSPULSE UNA TECLA PARA CONTINUARS:" 


POKE 198,9:MAIT 198, 1:PRINTHOS 
Y1=Y1+1:NEXT L 

GOSUB 6460 

GOSUE 6608 

CLOSE4 

FOR E=1 TO MX: 15(E)=0:JS(E)=0:NEXT E 
REM rro. 


X=2:=23:G05UB11000:PRINT"WPULSE UNA TECLA PARA YOLYER AL MENU" 


POKE 1938,0:WAIT 193,1 

RETURN 

REM SINTESIS 
POKE646, 1 :PRINTBS$(N9>:PRINT B$(6); 


PRINTSPCCI4VALCBEC2)I M2 MYALCBECI) MA MVALCBECA)) ¿PRINT 


RETURN 

A E 

0P2=2: COSUE7O40 

FOR T=1 TO 9:TP<T)=5:NEXTT 
PRINTTABO ¡“O LO=P/ a "5CO$:PRINT 
IF SC=2 THEN 15100 
GOSUB2008:G0TO1S165 , 

CmMD4 :PRINTCHR$C17) 

PRINT"MOMBRE — : ";ESc1 


PRINT"FECHA : UIVALLESC2I) 3020 ALBELDA INALBECAD 


PRINT"SINTOMA : ";B4(5) 
PRINT"FARMACO : ";B 
PRINT"POSOLOG. : "; 
PRINTTABC11);B4$C0) 
PRINT"NOTAS : OM BELO) 

PRINTH4 

Y1=7 RETURN 

REM CONTROL FECHA 

IF E<>60 THEN 15520 

IF YALCBSC4)5AN THEN 15515 

IF WALCBLC42)<AN THEN K3=3:RETURN 
IF MO=VALCBSC3)) THEN K5=3: RETURN 
K3=0 : RETURN 

IF E<>61 THEN 15538 : ; 

IF ANCOVALC(ES(47) THEN 15527 

IF M=VALCBS(3)) THEN KS=1 *RETURN 
KS=0 :RETURN 

IF WALCBFC4))0AN THEN K5=2:RETURN 
IF WALCB$(4)><AN THEN K5=0: RETURN 
IF WALCBES$C3))=3M. THEN K5=2: RETURN 
K5=0 : RETURN 

REM RR VOCABULARIO dodo 
PRINTHOS : GOSUB7000 


2=9:Y=9 :GOSUB11900 PRINTEC ALO 1 TT AS TAL 
Y=Y+2 : COSUB1 1000: PRINTER TA LITO" 


Y=+2:COSUB11000:PRINT"EORMAR ALTOS" 


Y=Y+2:COSUB1 1000: PRINT"M MADE ADOS ALT 


X=16:Y=+3:G0S5UE11000:PRINT"MWELIJA ":X=22 


GETSELS$: IFSEL$=""THENGOSUB1 1090: PRINT" 1?" : GOSUB11000:PRINT" AN ":GOTOLESZO 


SEL=VWALCSEL$):1F SEL<1 OR SEL>4 THEN 16920 
IF SEL=4 THEN RETURN 

ON SEL GOSUB 17000,17100,17208 
GOTO 16905 

REM dk INTRODUCCION VOCABULARIO 44 
PRINTHOS : GOSUB7900 

GOSUB2000 

GOSUB3060 

IF FS=6 OR FS=2 THEN 17001 

1F FS=7 THEN RETURN 

AS=ESC1) 

FL=2:GOSUB 17500 

epa 17001 


O REM Ak VARIACION VOCES Ak 


PRINTHOS : GOSUB7000 
Fi=0 


X=7:Y=8:GOSUB11000:PRINT"E5/1 LT LA Teo te ote" 


GOSUE2068 

GOSUB3000 

IF FS3=6 OR FS=2 THEN 17105 

IF FS=7 THEN RETURN 

ASF=BESC1A 

FL=1:G0SUB 17500 

IF _Fi=0 THEN GOSUB6400:COSUBEE690 :G0TO17105 


X=7:'=8: GOSUB11000:PRINT"25/1 LT ca LA /0Xt Te 


TP(1)=5:GOSUB2000: COSUB3000 
IF FS=6 OR FS=9 THEN 17135 
Sr FS=7 THEN GOSUB6490 :GOSUB6604: RETURN 


En 

COSUBS900:PRINTH2,B$(1) 
GOSUB6408 : GOSUBE60B :GOTO17105 
REM dek IMPRESION VOCABLOS kk 
GOSUBE000 : MF$=""0C": GOSUBE200 


PRINT HO$:PA=1:GOSUBSS80: INPUTR2, ARS: 1MMX=VALCARS) 
PRINTHOS : GOSUB7009:X=12:Y=11:GOSUB11000:PRINT"EX AL DEPRESENTACION EN VIDEO 


Y=Y+2:G0SUE1 1000: PRINT"B ARDE JIMERES ION AR PAPEL" 


X=16:Y=Y+3:G0SUB11000:PRINT" MELIJA 


GETSCS$: IFSC$=""THEN GOSUB11000: PRINT= aa" GOSUE11060:PRINT" AM ":GOTO17215 


SC=WAL (SCS): IFSCCIORSCI2THEN17215 


PRINTHOS:OPEN4, 4 

FOR RE=2 TO MX 

PASRE : COSUEG300 : INPUTH2, ARS 

IF SC=1 THEN POKE646, 1 

IF SC=2 THEN CMD4: PRINTCHR$C1795 
PRINT "VOZ_ "¡RE-1;":"; 

1F AA THEN PRINTCHR$(159); 

PRINT ARAS 

IES Sosz THEN PRINTH4 

NEX 

X=2: veas: GOSUB11800:PRINT"PULSE UNA TECLA PARA VOLVER AL MENU" 


es ATA 1 : GOSUEEE00 : GOSUBE400 : CLOSE4 : RETURN 


TB 


O REM 
1 REM 


GOSUBE000 :NF$="W0C" : GOSUBG200 
PA=s1: OA ARAS: MX=WALCARSI 
FOR I=2 Tl 

CY GOsUBECOO: INPUTH2, ARS 


9=0 
FOR K=1 TO LENCARS$> 
C1$=MID$CAS,K, 1):C29=MIDSCARAS,K, 1) 
IF C1$=02$ THEN K9=K9+1:G0T0O17512 
IF C2$=CHR$(35) OR C2$=CHR$(32) THEN K9=K9+1 
NEXT K 
IF K9=20 THEN I=5Mx 
NEXT _I 


IF K9=20 THEN 17600 

IF FL<O2 THEN GOSUB6400: GOSUBE6600 : RETURN 

NRM=20:GOSUB 7500 
PRINTHOS:X=15:Y=5:G0SUB11000:PRINT"AMI 7/37/00 X=10:9=9+7 
G0SUB11000:PRINT" AC" ¿A$; ">": Y=+3:xX=8:G0SUB11090:PRINT"MESTE SINTOMA NO EX 


X=5:Y=17:G0SUB11000: INPUT"DEBE INTRODUCIRSE <SI/NO) M" ¿R$ 
IF R$="NO" THEN 17562 

IF R$<>"SI" THEN 17540 

REM INTRODUCCION 

PA=11X+1 : GOSUPES00 : PRINTH2Z, AS 

PA=1 :GOSUBESO00 :PRINTé2, STR$CMX+1) 
G0SUEE6400 : GOSUEGEGO : RETURN 

REM K9=20 (W0Z EXISTE) 

ne RETURN 

ES RESTORE DATA 

RESTORE 

FOR I=0 TO 62:READ D:NEXTI 

FOR I=1 TO 6:READ X$:NEXTI 

FORK=1 TO 3 

FOR I=0 TO 62:READ D:NEXTI 

NEXT K 

IF LV<0' THEN RETURN 

FOR I=i TO LY:READ LY$:NEXTI 
RETURN 


HAIR MIRROR 
* THÉLAS COMPARATIVAS * 


LLENA AMAIA ORIO OIR 


12 a id 


14 FORT=1T0400:NEXTT:PRINT"E";5 :%=2:4=10:G0SUB11000 

15 PRINT"INTRODUCIR DISCO DATOS":PRINT"MIBDRDARDADM Y PULSAR UNA TECLA" 
16 FOR T=1 TO 400:NEXTT . 

17 CETR$: IF R$="" THEN 14 


20 DIM B$(20),TP(80),LCC30) + ND(80),0XC80), 0480), DXC(25), DW(25) 


21 DIM TFC15),D$(25),W0$C020),FI$(2),LFC2), miis 


22 LF 


24 BES Mpng=", 0 Asg="— NS 


(1)=20:FI$(2)="TABY":LF(2)=20:FI$C1)> 


TABH" :K$C1)=" 51-40" :K$(2I="4 1 4" 
4 SUE="pI":GIUES"N":HOS="2J":SLE=" 00 


25 USE=CHR$(133) :NV=5:XC=7:YC=6:52=2:POKE 650, 123 


26 PR 
27 1F 


INTHOS :COSUB1300: PRINTHOS :PRIMTCHREC142) REM 4% MENU 4 
OPZ=S THEN CLR:LOAD"MEDICINA",3 


30 GOSUB20000 
25 FOR I=1 TO 15'READ TFC1I>:NEXTI 


REN 
129 ON OPZ COSUB 5000. 5000, 5500. 12000 


130 REM 

150 GOTO 26 

LO REMARCAR 
AS 

1301 REM + MENU PRINCIPAL * 

1302 REM ARA ARA R 

1303 LW=-1:POKES3201,6:POKES3220. 14 

1305 Us=" MENU ":0P2=0:YD$(0PZ)=" lálLio TAI" COSUE 7000 


1315 S53=53248:POKESS+21,1:POKE2040, 13 

1316 RESTORE 

1318 FOR 1=6 TO 62:READH:POKES32+1,4: NEXTI 

1321 POKESS+39,1:C1=50'C2=111 

1323 GOSUB 1363 

1324 GOSUB 1396 

1327 GET OPZ$:IF 0PZ$="" THEN 1327 

1333 IF OPZ3=G1U$ THEN C2=C2+16:0PZ=0P2+1 :GOSUB1363 


IF OP2+=SU+ THEN C2=02-16:0P2=0P2-1 :GOSUB13E3 
IF OPZ$=US+ THEN 1381 
IF ASCCOP2+4>=25 THEN GOSUB 1456:G0T01205 


GOTO 1327 
REM dk 


IF C2<111 THEN C2=C02+16:0P2=0P2+1 :RETURN 
IF C27175 THEN C2=C2-16:DP2=0P2-1 :RETURH 


POKESS, 01: POKESS+1,C2 
RETURN 

REM dk 
HAC: OP ZRSZ+HWC 
GOSUE 11000 

PRINT" 3h"; VOS$(OPZ) 
FOR T=1 TO 1000:NEXTT 
POKESS+21,PEEK(SS+21)AND254 
RETURN 

REM RAR 

REM 


FOR J=1 TO NW:RERD YOSCJ>:NEXTJ 
REL ARARRIO OR IOR OIC AdoR: 
FOR ll=1 TO Y 

=A4C:Y=ITASZAWC 

G0sUB1 1000 

PRINT"2A"5YO0$CII) 

NEXT II 
RETURN 
DATAO,0,0,0,96,0,0,144,0,3, 3; 


2.9 
DATA4,64,0,8, 142,252, 17,112,2,224,129,252 


DATAS,63,0,0,565,0,9,63,0,0,31,0 
DATA9,33,6,0,31,0,224,63,0,16,81,0 


DATALS,30,0,0,0,0,0.0,0,0,0.0,0,0,0 


DATA"1- «NTRODUCCION" 

DATA"2- Pad DE LAS TABLAS " 
DATA"3- »ARIACIÓN 

DATA"4- IENERACION SISTEMA" 
DATA"G- —IN DE TAREA” 

REM AR AYUDA MENU RRA 
PRINTCHR$C147) :PRINTCHR$C14) 


POKESS., 255: POKESS+1. 115: POKESS+39, 6 


POKESS+40,6:POKESS+41,6 


2 POKESS+21,7:POKE2040, 13: POKE2041,14:POKE2042, 15: POKESS+29,4 


FORN=0T062 :READO: POKES32+N, 0: NEXTH 
FORN=0T062 : READO : POKES96+H, 0: NEXTN 
FORN=0T062: READO: POKES60+HN, 6: NEXTH 


POKESS+33, 1: POKESS+40. 1:POKESS+41, 1 


POKE 53281.6 


PRINT MO ro | 0 Ena 


FOR I=1 TO 15:PRINT"mMI 
PRINT" 


AA A ) i 
PRINTCHRE(195 :PRINTTAE<?> "MIDA 4/70 TL NT 
POKESS+2, 255: POKESS+3. 145: POKESS+4, 245: POKESS+5. 130 


PRINT"AIARADESPLAZA AERJO:" 
FRINT"RUBBIDESPLAZA ARRIBA: " 


PRINT"REMBIINTRODUCE OPCION ELEGIDA: " 
PRINTTRECS>"MUNTA O 1 171 AA IT RL 


GET R$: IFR$=""THEN1S13 
POKESS+29,6:PRINT"03" ¿RETURN 


DATAS.255,192,12,0,32. 16,16, 16,32,56,8,32, 108,8 
DATAC4, 40.,4,64,40,4,64,0,4,93, 206,229,391,72,164 
DATAS1,206,223,81,66,164,93,46,148,64,0,4 
DATAS4.40,4,64,40,4,32,102,8,32,56,8,16,16,16 


DATAL2.0,32.3,255,192 


DATA3, 255,192, 12,0,32,16,32. 16,32, 120.9,32,192,9 
DATAG+,120,4,64,22,4,64,0,4,93,206,228.81.72,164 

DATAS1. 206, 228,21,66, 164,93, 46,145,64,0,4,64,16,4 
DATAG4, 126,4,22,12,8,32,120,2,16,16,16,12,0,32,23,255, 192 
DATAG, 1, 6, 7, 255, 224, 24,0,24,96,0,6.122,0,1,129,1,129 
DATA134,131,129,132.2,129,132,0,129.142,0,129 
DATR132,0,129,132,0,129,132.0,122, 122,0,1,96,0,6 
DATA24,0,24,7,255,224,0,0,0,0,0,0,0.0,0,0.0,0 


REM FIN DEL MENU PRINCIPAL 


R 
FORI=1TODS:X=DXC1>:Y=DYC1>:GOSUB11000:PRINT"A"D$(1>:NEXTI 


a TO NUC 
IF TPXJI<5S AND TPCJ><54 THEN 2060 


=CXCJO ¿YC YLEJA GOSUB1 1000: PRINT"A" 5 BFCJO 


GOTO 2130 


A o 28 a TPCJ)=1 OR TPCJ>=2 THEN C$=NS$:G0T02070 


FOR I=1 TO Ni-N2-1:A$=A$4+C0$:NEXTI 
IF N2=0 THEM A$=A+$+C04$:G0TO 2095 
AS=AS+PDS 

FOR I=1 TO N2:A+=A$+"0":NEXTI 
A=SCXCJ) ¿Y=CYCJ) GOSUE 11000 
PRINT "MAS; "a" 

BJ ="" 
FOR K=1 TO Ni-N2-1 
BICI =BSCIO+NSS 
NEXT K 


IF N2=0 THEN BScJ)=BS$CJ>+HS+:GOTO 2130 


BICI =DF CJ) APDE 
RE IA E 


Ri 
REM 4 DATA ENTRY 4% 
REN 


REM 


J=1 

REM 

NC=J : X=CXUNCA + =CY (NC) 
Cc=1 

GOSUB 3240 

IF FS=2 THEN RETURN 


IF FS=0 THEN 3100 

IF e THEN 3210 

GOTO 3120 

REM CARACTER 

J=J+1: Ha JÓNUC THEN 23930 

GOTO 3040 

ON FS GOTO 3130, 3150.3170, 3199 

TF J>1 THEN J=3-1:G60T0 23040 

FS=0: J=NUC:GOTO 3040 

1F J<NUC THEN Aeon COTO 3040 

F3=8:COTO 3030 

LA OS THEN S=1:CC0=CC+10%=%+1:G0SUB 11000:G0TO 3050 
IF CE>1 THEN” SiO LC=CC-1:%=%-1:G0SUB11000:G0TO 3069 
o 3035 


TF FS>3 THEN FS=9:G0T0 2060 
IF FS=9 THEN FS9=9:G60T0 3100 
RETURN 


REM 
REM 4% LECTURA DE 1 CAMPO kk 
REM 


FS=0 

IF TP<NC)=4 THEN RETURN 

IF TPXNC¿=2 THEN GOSUB 9000 :RETURN 

IF MIDSCBÍCNCI CC, 19=PDSF THENX=X+S:CC=CC+S 
GOSUB 11009 


O GET AS: IF A$<C)"" THEN 3338 


COSUB11000: icatdelcal :GOSUB11000:PRINT"A"¡MID$CBS(NC),CC+1)5 
rie TO 45'NEXT T 

IFASCCASOS =190RASC(AS)=200RASCCAS=147PORASC(AS)=148 THEN 3330 
PRINT"Ma"; AS; 

CA=ASCCUAS) 

FOR I=1 TO 15 

IF TFCI=CA THEN FS=1:1=15:609UB3630: RETURN 

as THEN RETURN 


1F TPONCI<21 THEN 3450 

1F CA=45 OR CA=46 ORCCA>=4SANICAC=57)THEN3420 
COTO 3320 

IF eta A 

COSUB 4: 

1F Shp=i Then 3410 

S=1:COSUB 3520 

IF CO=LC<NC> THEN RETURN 

o a EL 3310 


ad X*k TRASFERENCIA AL BUFFER 4% 


IF CC=1 THEN SN$="":GOTO 3590 
SN$=LEFTSCBF(NC) + CC=1) 

IF CO=LC(NC> THEN DES$="":GOTO3610 
NsaLCUNCI=CC+DES=RIGHTSCBGFONCA NO 
BS(NC>)=SHI+AS+DES 

RETURN 


REM 

REM 4% COMANDOS 40% 
REM 

IF FS25 THEN 3710 
RETURN 


IF FS5=2 THEN GOSUB 12000:RETURN 
IF FS3=8S THEN GOSUE 4080:RETURN 
IF FS<2S THEN RETURN 

ON FS-9 GOSUB 3740, 3910 

E 


Ren Hk INSERCION ak 


Te eo=LOCNCITHEN RETURN 

IF CC=1 THEN SH$="":GOTO3800 
SNFSLEFTSCBG (NC) /-CC=1) 
H=LCONCI=CO+1 E DES=RIGHTSCBSONCI.N> 
C+=BL4 

AS=3N$+C$+DE$ 
BSUNCISLEFTSCAS)LOCNCI 

ARRE 

pmp POSAgan GOSUE 11006 
RAR EY 

REM 

PRINT BS(NC>:S=-1 

IF RIGHT$CBFONCI, 19=PDS THEN 2780 
RETURN 


REM 
REM ARRE BORRADO Ho 
REM 


IF TP<NC<51 THEN 3950 

IF MIDECBFCONCI,2,1)5PDS AND CC=1 THEN RETURN 
IF CC<1 THEN RETURN 

IF COsLCONC> THEN DE$="":GDTO 3989 
H=LC<NCI=CC : DES=RIGHTSCBF CNC) 
SN$=LEFTSCBFONC),CC=1) 


Epaaa IREesa 1 OR TPNC>=2 THEN C$=NS$:GOTO 4019 
ESOO) =SNS+DES+CS 

XA 

ASCAUNCO :=CYENCO GOSUE 11090 
RSRR 

PRINT BS$<NC):S=1 RETURN 

REM dk AL THERDOS RARA 

IF LOCNCI=1 THEN RETURN 
WNi=LC(MCI-CC+1 

IF CC=1 THEN BS$(NC>="":G0TO4189 
BS(NCI=LEFTSCESCHC)/CC-1) 

IF a Y OR TPCNCI=2 THEN 4150 
FOR 1=1 M1 

BSCNOO .BECNCIABLE 

NEXT 1 


GOTO 4190 

FOR I=1 TO Ni 

AN 
HEX 


IF RIGHTS$(BFCNC)>,1)=PDS THEN BS(NC>=BL$+LEFTS(BG<0NC),LOCNCI=1) 
ASCXCUNCO :Y=CY CNC) :GOSUE 11000 
Ea BSCNCI RETURN 
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REM 

REM 

SHP=g 

IF CCsl OR CC=LCONC> THEN SHP=1: RETURN 

FOR I=1 TO LECNC> 

IF MIDSCESCNC),1,12=BLG THEN 1=LC(NC):SWP=1 ¿RETURN 
0 TI :RETURN 


REM 
REN 
ad *k IMPRESION DE LAS TABLAS Ak 


GOSUE 7600 
X=3:Y=7 : GOSUB1 1090: PRINT"S 11 LT MAN: 
s=10:Y=10:G03UB11000:PRINT'"E AB TABS TY TT 
Y=+2:GOSUB11800:PRINT"BCAREDA y VILA N/ . is 
Y=Y+2:G0SUB11000:PRINT"EC ADA XML AL 
X=16:Y=4+3: COSUB11000:PRINT"WELIJA ":x= 22 
GET SC$:IF SCF<>"" THEN 5820 
GOSUB1 1000: PRINT"«u?":GOSUB11900:PRINT" " 
FORT=1T0100:NEXT:GOTO 5017 
SC=VALCSC$):1F SC>2 THEN 5917 
IF SC=0 THEN 02=0:RETURN 


REM 
Aga rai] THEN GOSUB15000:02=0: RETURN 


NESTFIS(GE): —r ARAN GOSUBE200 
DZ=2:C0SUB S 

FOR 1=1 ee o Trcnea: NEXTI 

GOSUB 5565 
4=19:=5:GOSUE11000:PRINT"A"K$CGE)> 
=23:X=6:G0SUB11000:PRINT"EPULSE UNA TECLA PARA CONTINUAR" 
GOSUE 2000 

POKE198,0:WAIT198, 1 

GESGE+1:1F GE=3 THEN 5100 
GOSUBES00:GOTO 5047 

GOSUB 6400: COSUEGSOD 

0Z=0: RETURN 

REM -- VARIACIONES -- 

GOSUB 7009 

A 3005 


Eósurcaoo: NrY 
FOR I=1 T 
PA=I: cosUBesdn 
INPUTH2. ARS 
Ni=1+64(1-1):N2=N1+5 
FOR L=M1 TO N2 STEP6 
ESCLI=MIDICAAS,3,3)* ESCL+LI=MIDICARS, 5,3) :BS(L+2)=MIDICARS, 9, 4) 
AE SED A TS ERIN 
NEXT 
NEXxT_1 
GOSUEG400: GOSUBESOD 
PRINTHOS :0PZ=3:GOSUB 7900 
IF 0Z=2 THEN RETURN 
FOR I=1 TO 6:TPC1>=5:NEXTI 
NUC=72: ATETAENN 
FOR I=2 T 
FOR OS =1) TO K1+5STEP6 
FOR K3=0 TO 5 
TPCK1+K3)=5:LC(K1+K39=LC<K3+1) :NDC(K1+K3)=ND<K3+1) 
A A 
3 


I 
IF 0Z=2 ls RETURN 
GOSUB 2000: 


J=1 
05 X=2:Y=6: e. coSUEL 1900: :PRINT"J"K$(K4) 


GOSUE 3 
IF FS=6 OR FS=9 THEN 55€0 


IF FS=7 THEN COSUB 6400:GOSUE. $684: RETURN 
pen, 3u5s 


REN 
REM Ak GESTION DISCO Kk% 


2003 


3070 


2004 


REM 


R 1 A. R2=0 
IF R1>256 THEN R2=INT(PA/256) :R1=R1-2564R2 


PRINTH1, "P"CHR$CI+IG)CHRSCRI )CHRECRZICHRE CL 
Y RETURN 


REM 

REM 

REM CARGA LOS DATOS kk 

IF 0P2=5 THEN 7006 
L=LENC(YOS$COPZ))3:L$=RIGHTSCWOSCOPZ/L)+1F OPZ=0 THEN 7005 
Us=">»0Z "+STRECOPZ)+" " 

P=(30-L>/2:P$="":FORK=1TOP:P$=P$+" "¿NEXT K 

PRINT"3" 5 :PRINTCHR$C<14) 

PRINT"MEI MmrT.1.9.  TDICIONES -—ORUM, v.%." 
PRINT"M3T "US; "$ hal 
PRINT“MRA Ps 

IF 0PZ=0 THEN PRINT" 3H mu"; 

PRINT"MA'LS; "980 PS 

PRINTS Ln 

IF 0PZ=5 THEN 7040 

X=1:Y=22 : GOSUB1 1099 : PRINT AA A—>— 
X=29:W=23:G0SUB11000:PRINT" Az +1: AA" 


REM 
IF OPZ=0 THEN RETURN 
REM 


ON OPZ GOTO 7110,7110,7110,7110,70890 
LV=15: GOSUJB20000 : NUC=6 : DS=22: G0TO7090 


FOR I=1 TO DS:READ D$CI>,DXCI), DY CIA NEXTI 

LE I=1 TO NUC:READ TPCI)LCCI)NDC1> CMC 10 CC 1) 
NEXT_1 

RETURN 

REM 

E JekK INTRODUCCION TABLAS 4% 

GOSUE 7000 

X=11:Y=8:GOSUE1 1900 :PRINT"5 414705 TL 1 TT" :x=16 


Y=9+4 :GOSUB11000:PRINT"Ax 1 4/70" 
Y=Y+2:GOSUB11000:PRINT"34 1138 140" 
Y=Y+3:60SUB11000:PRINT"ANICUAL":2=21 * 

GETR$: IFR$=""THENGOSUR11000:PRINT" 37" :COSUB11000:PRINT"A ":GCOTOSD13 
IF R$="H" OR R$=" 1" THEN K4=1:G0TO3025 

IF Ré="Y" OR R$="x" THEN K4=2:G0T09025 

GOTO £613 

NES$="TAB"+R$ 

IF 0P2=3 THEN RETURN 

PRINTHOS : OP2=5: GOSUB700B 

NUC=72: HAC 1) 

FOR I=2 TO 

FOR CerioKti 13 TO K1+SSTEPS 

FOR K3=0 TOS 

TPCKI+KS)=TPK3+10 LOCK1+K3)=LCCK3+1) ND<K1+K3)9=NDXK3+1) 
CXCK1+K3)=CXCK3+1) :CYCK1+K39=0'1(K3+1>+1-1 

NEXT K3 

NEXT K1 


NEXT 1 
GOSUB 2600: J=1 
X=2:Y=8:G05UB11000:PRINT"A"K$CK4) 
COSUE 3035 
IF FS=6 OR FS=9 THEN 3030 
1F FS=7 THEM RETURN 
ER=0 
FOR I=1 TO 12 
Ni=1+6%<1-15:N2=N1+5 
FOR L=N1 UN mo MALE 
IF L=NZ 
VI VAL OBS LO): VE=VAL(ESCLA DD) 
IF 41542 THEMER=L 
V1=0:2=0 
NEXT L 
NEXT 1 
IF Arzen7 THEN GOSUB3150: J=ER :C0TOS059 
GOSUEEO 
CosUBe2an 


2075 FOR I=1 TO 12 

2080 Ni=1+64(1-1):N2=N1+5 
2095 RAS=D$CI+10> 

2037 FOR L=N1 TO N2 

30989 A 


2095 PA=I:GOSUB 6800 
2097 PRINT42. ARS 

8100 NEXT 1 

2105 COSUEG490 : GOSUBEG0O 
3110 RETURN 
3150 REM RUTINA ERROR 


3152 2=2:Y=6 :COSUB11000:PRINT"ARERROR DE INTRODUCCION EN LA LINEAR ";ER 
2154 FOR T=1 TO 2000:NEXT T 


[33] 
E] 
sw 
mu 
z 


9156 X=2:''=6:GOSUB11000:PRINT" ": RETURN 
Lea REM AAA DATA AOIROACOdA 


REN 
10019: DATA 145,17,29.157,140.133.136,13,25,134.135.0,0.,0,0 
10113 REM da OP ZO RACER RAR 
10115 DATA"ALTURA",8,7,"N ESO  ",18,7,"%-.RANEO",31,7 
10116 DATA" DAD", 2,8, "51N",8,8,"49X,12,8, "NIN", 19,3,"9X",23,8,"VIN",31/8 
10117 DATAYNAX", 35,3, "NA",3,10,"03",2,11,"08",3,12,"09",3,13,"12",3,14 
10113 DATA"15",3,15,"18",3,16,"21",3,17,"36",3,18,"48",3,19,"60",3,20,"72",3,21 
10119 DATA1,3,0,8,109 . 
10120 DATA1.3,0,12,10 
10121 DATA1.4,1.18,10 
16122 DATA1,4,1,24, 10 
10123 DATA1.2,0,32, mn 
16124 DATA1,2,0,35,1 
10200 pen A 


E , 
11001 REM ARK POSICIONADO EN X.Y Ok 
11005 POKE 211,X 
11010 POKE 214.%: 
11615 SYS58722 
11020 RETURN 
12600 REM 
12001 DEN 44 GENERACION SISTEMA 44 


12005 GOSUE 7005 

12010 %=7:Y=5:COSUB11000:PRINT"GENERACION EN CURSO" :Y=Y+2:GOSUB1 1999 
12015 INPUT"CONTINUO (SINO); R$ 

12620 IF R$="NO" THEN RETURN 

12025 1F R$<>"SI" THEN 12010 

12047 2=11:Y=20: GOSUB11000:PRINTUT OT, TAS" 

12052 poa 5000 


12058 AR$="" 

12070 FOR K=1 TO LFCGE> 

12072 ARS=AAS+"4"G NEXT K 

12075 OPEN2,.28:3, "0: "+FIS$(GE)+",Lo "+CHRECLENCARS) +1) 
12077 PA=1:G0SUE 6308 

12030 PRINTH2, ARAS 

12081 CLOSES 

12032 CE=GE+1:1F GE=3 THEN 12085 

12083 GOTO 12068 

12085 REM 

12094 GOSUB 6405 

12105 PRINT HOS 

12107 X=8:W=5:G005UB 11000:PRINT"h-a= 1-7 781 Fo 17 AT 
12110 X=2:=Y+15:005UE11000:PRINT"APULSE UNA TECLA PARA VOLVER AL MENU ” 
12120 POKE 198,0:WAIT 198,1 

12130 RETURN 

12999 REM HARRAIIO IOIIOGRIoo 

13000 ta! AR AYUDA 444 


R 

13010 POKE 53230.6:PRINTHOS; ¿PRINTCHREC 142%; 

13015 PRINTTABCS)"MACESR RIGHT + 2 MUEVE A DERECHA" 
13620 PRINTTAECS)"MACRSE LEFT MUEVE A IZQUI ERDA" 
13023 PRINTTABCS)"MALCRSR UP MUEVE ARRIBA 

13025 PRINTTABCS)"MACRSA DOMN MUEYE ABAJO ho 
13030 PRINTTRECS) "AMA F1* ANULACION ! 
13035 PRINTTAECO)"MA FS” INSERC ION a 
13040: PRINTTABC) "MA ES” BORRADO » 


13045 PRINTTRECS)" MA FF?” RETORNO AL MENU? " 
13047? PRINTTABCOO "MA FS” +33 INTRODUCCION y 
123050 PRINTTABCS)"MACTRL+Y 3 AYUDA da 
12055 REM 

13060 PRINTTABCS) "MARE TUR $ ALINEAR L 


13065 PRINTTABC6) "MAPULSE Una TECLA PARA VOLVER" 
13066 CETR$:IFR$=""THEN13066 

13958 Ea HO$ PRINTCHRSC14>:POKE 53260, 14 
13070 RETURN 

15009 5 =- IMPRESORA -- 


15095 SE 

15007 NF$=F I$<(GE): GOSUB60OO : GOSUE £200: OPENS, 4 

15009 02=2:G0SUB 5515 

15011 GOSUB 5563 

15015 CMD4:PRINTCHRSC17) 

15016 PRINTS L 07 IRILA :"¡K$CGE> 

15017 PRINTTABCS)"N ALI A Te 7. CRANEO" 
15020 PRINT TABC20>;K$(K4> 

15022 FOR I=4 TO 10 

15024 L9=LENCDSCI7) 

15026 FOR K=DXxc1)> TO DXCI+1>-L9:D1$=D1$+CHR$C32) NEXT K 
15022 Di=D$+D1+$+D$(1> 

15029 DIS="" 
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NEST_1 
PRINT TABC2);D$ 
PRINT 


15030 

15049 

15042 

15043 D$="" 

15045 FOR I=1 TO 12 

15046 Ni=1+6%< 1-1>:N2=N1+5 

15047 FOR Ki=N1 TO N2 

15050 L9=LENCBSCK1>) 

15055 FOR K=CX<K1> TO CX(K1+12-L9:C1$=C01$+CHR$(32) ¿NEXT K 
15057 C$=C3+C14+B$(K1) 
15060 
15065 
15066 
15067 
15070 
15072 
15075 
15030 
15109 


y 


Pig 


NEXT K1 

ro TABCD)+DECI+10))5PCC2) 504 
NEXT 1 

GOSUE 6609 

CE=GE+1:;IF GE=3 THEN 15100 

a E E 15007 


En 
15105 GCOSUB 6400:G0SUB 6600: PRINTH4:CLOSE4 
15110 RETURN 
20000 REM RESTORE DATA 

RESTORE 


20010 FOR 1=0 TO 62:READ D:NEXTI 

20020 FOR I=1 TO NY:READ X$:NEXTI 
20025 FORK=1 TO 3 

20039 a TO 62:READ D:NEXTI 


20645 IF LY<0 THEN RETURN 
20050 FOR I=1 TO LV:READ LY+$:NEXTI 
20100 RETURN 


3 

o 
y 
Q 
cr 
z 
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RELACION DE PRINCIPALES VARIABLES - COMMODORE 64 


Data Base médica 


1S(«) = matriz punteros identificados en Selección (subrutina 6900) 
JS(«) = matriz punteros usados en impresión con búsqueda (subrutina 14000) 


GGS(+) = matriz que contiene el número de días de cada mes 


mn = variables auxiliares usadas para la comparación (subrutina 17500) 


K9 = flag para síntoma identificado 
F1 = flag indicador operación a realizar en archivo síntomas 
KM = mes de fecha introducida 
RE =registro considerado 
PA = puntero al registro en el fichero 
MX = número máximo de registros a procesar 
= blank 
= punto decimal 
= Carácter “—”; identifica los campos de introducción alfanuméricos 
=carácter “+”; identifica los campos de introducción numéricos 
= borra la pantalla 
= número de campos de introducción en la máscara vídeo activada 


= número de descripciones en la máscara vídeo 


Tablas comparativas 
BL$ = blank 
PD$ = punto decimal 
AS$ = Carácter "-”; identifica los campos de introducción alfanuméricos 
NS$ =carácter “+”; identifica los campos de introducción numéricos 
= borra la pantalla 
=número de campos de introducción en la máscara vídeo activada 


= número de descripciones en la máscara vídeo 
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La lógica del programa 


El procedimiento consta de cinco programas, ca- 
da uno con una finalidad propia y una diferente 
estructura, por lo que se analizarán por separado. 
Para abreviar, no se presentarán todos los dia- 
gramas de los programas, sino sólo los más sig- 
nificativos. Para los otros deberán consultarse los 
listados, utilizando eventualmente como guía los 
diagramas presentados en otros programas. 


Calendario vacunaciones 

Las funciones que realiza este programa pueden 
resumirse en la creación y gestión de una Data 
Base que contiene los campos: 


Nombre 10 caracteres 
Vacuna 15 caracteres 
Notas 20 caracteres 
Fecha 8 caracteres 
Próxima vacunación 8 caracteres 
Indicador 1 carácter 


Aparte del significado particular de los campos, 
se trata de una base de datos normal que puede 
gestionarse de manera similar a la de los progra- 
mas anteriores, o sea utilizando los módulos de 
presentación y gestión de máscaras vídeo. La 
gestión es similar pero no igual, puesto que se ha 
previsto una forma particular de introducción. 

Para un determinado nombre y una cierta vacu- 
na, el usuario debe modificar la fecha a medida 
que se cumplen las fechas, por lo que es necesa- 
rio que disponga de un medio de encontrar rápi- 
damente un registro determinado. Es decir, en el 
fichero de vacunas y fechas debe haber, como 
campo clave, el nombre y el tipo de vacuna. 

En la figura de abajo se han representado el dia- 
grama de principio y la estructura de ficheros utili- 
zada. En la versión presentada en el listado se ha 
previsto un máximo de 100 registros que, dada la 
utilización, es un número más que suficiente. En 
el gráfico de la página anterior se ha representa- 


DIAGRAMA DE PRINCIPIO DEL CALENDARIO DE VACUNACIONES 


Corresponde a la voz 4 del 
menú. La función es de 

' Generación preparación del fichero con los 
registros en blanco, La longitud 


del registro es de 62 caracteres 


Caracteres 
reservados a la memorización 
del último registro 
escrito 
A" 


Prepara el fichero 
y escribe 1 en el “d, registro (directorio) 


20 


Registro 1 (o 0) Registro "n" 


Del fichero 
y Al siguiente 
[0] * ¡ 


Al fichero 


introducción 


y 
ys 


Este diagrama sólo es de principio. En realidad, para la versión en cinta, 
todos los datos se cargan en memoria y, por tanto, la búsqueda y la 
actualización sólo requieren una lectura al principio para la carga y otra al 
final para la memorización después de la actualización o la introducción 
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INTRODUCCION Y ACTUALIZACION 


En los DATA, todos los campos 
son de introducción. Si es 
necesaria, la modificación del 
tipo de presentación se hace a 
continuación 


Estos dos campos no se gestionan con 
máscara vídeo porque se trata de una 
entrada normal en dos variables de 
cadena, Si ambos campos se dejan en 
blanco, el programa salta directamente a la 
introducción (punto A) después de la 
lectura del registro O (o 1) 


MX contiene el número del último 
registro utilizado 


Principio del bucle de búsqueda (el 
indice RE empieza en 1 para los 
ficheros en los que existe el registro 
0, y en 2 para los otros) 


En algunas 
versiones, el 
bucle está en 
la memoria 
(cassette) 


El registro ha sido encontrado, por lo 
Registro no encontrado, que se trata de una actualización 
El programa se pone en 


introducción En actualización deben definirse los 


campos del tipo en presentación 


La introducción de un nuevo registro, 
además de hacerse al final del bucle, 
también puede hacerse 
directamente después de la 
introducción del nombre y de la 
vacuna si se han dejado en blanco 


Transfiere 


La entrada al programa deidades 


debe hacerse antes de la 
carga de los DATA para 
recuperar el valor exacto del 
tipo de campo 


En el caso de introducción 
reconocida, activando un flag en los 
bloques anteriores, actualiza el 
contenido del registro 0 (+ 1 con 
respecto al anterior) 
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COMPROBACION DE LA EXISTENCIA DE UNA VOZ EN EL “VOCABULARIO” 


Inserta 
nuevo registro 


do el diagrama de la primera voz del menú. Los 
diagramas de las demás funciones (impresión 
calendarios para un nombre e impresión de todos 
los calendarios) no se presentan, porque son 
análogos a la primera parte de la introducción y 
pueden deducirse fácilmente de los listados. Bá- 
sicamente se trata de una misma rutina de lectura 
en disco e impresión con dos módulos de funcio- 
namiento (uno con selección y el otro sin ella). El 


primero, activado por la voz 2 del menú, pide el : 


nombre y sólo se presentan los registros que con- 
tienen el dato pedido. En el segundo, activado 
por la voz 3, no se realiza ningún control. 
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En MX pone el número 
del último registro escrito 


Este bloque es análogo al ya 
presentado en el Calendario 
vacunaciones y en el Recetario 


Este flag indica quién 
ha pedido la subrutina 


El 


Sólo llega con flag =,2 


Esta salida se utiliza en la 
Data Base médica, que 
pone el flag = 0 en llamada. 
La existencia de la voz es 
indicada por el valor de K9 


Data Base médica 


Aquí, la función principal también es la gestión de 
una Data Base, pero con una lógica más com- 
pleja que las anteriores, porque debe tenerse en 
cuenta un «vocabulario», o sea una colección de 
términos a utilizar por comparación para la valida- 
ción de un campo de las máscaras vídeo. 

El uso de un vocabulario en la gestión de los ar- 
chivos es una condición que suele respetarse 
donde hay la posibilidad de sinónimos. Así se evi- 
la que operadores distintos utilicen términos dife- 
rentes para indicar lo mismo. 


En la página anterior se ha representado el dia- 
grama de detalle de la parte del programa que 
realiza este control. Esta versión es la más com- 
pleta, puesto que permite utilizar un vocablo de 
cualquier longitud según el espacio del disco, 
mientras que para esta aplicación no se necesi- 
lan más de unos diez términos. 


Vocabulario: Nombre = VOC 

Número registros previstos en listados = 20 
Longitud registro = 20 caracteres, igual al campo 
«síntoma» de la máscara vídeo 


Archivo: Nombre = ARC 


Número registros previstos en listados = 100 
Formato registro: 


Campo Longitud Tipo 

1 - Nombre 15 Alfanumérico 
2 - Día 2) 

3 - Mes 2 Numéricos 

4 - Año ol 

5 - Síntoma 20 

6 - Fármaco 25 , 

7 - Posología 50 Alfanuméricos 
8 - Notas 25 


En el C-64, un conjunto de datos (los 8 campos 
anteriores) está dividido en 2 registros: el primero 
con los campo de 1 a 6 para una longitud de 66 
bytes (más 9 espacios) y el segundo con los 
campos de 7 a 8 para una longitud de 75 bytes. 


Por tanto, en esta máquina, el fichero tiene 200 
registros que contienen 100 grupos de datos. 
En la figura de la página 2012 se ha representado 
el diagrama de la subrutina de Gestión vocabula- 
rio (voz 1 del menú principal) que, a su vez, con- 
tiene un menú secundario. Las funciones a reali- 
zar son 3: introducción, actualización (para even- 
tuales correcciones) e impresión; todas las fun- 
ciones están incluidas en el mismo diagrama. 
En la página 2013 se ha representado el diagra- 
ma de la voz 2 (Introducción), y en la página 2014 
el de la voz 3 (Actualización). La primera no pre- 
senta ninguna diferencia con respecto a las sub- 
rutinas de introducción utilizadas en los otros 
programas, a excepción de dos controles: la vali- 
dez de la fecha introducida y la existencia de la 
voz introducida en el campo «fármaco». La se- 
gunda, Actualización, tiene como particularidad 
la selección del registro a actualizar mediante Uma 
búsqueda realizada en los campos Nombre y Fe- 
cha. Es decir, si el usuario desea variar el conteni- 
do de un registro, primero debe identificarlo me- 
diante estos dos parámetros. Los diagramas pre- 
sentados tienen la forma más generalizada; así, 
no tienen la limitación de 100 registros. 


Factor de crecimiento y Tablas comparativas. 
En la página 2015 se ha representado la estructu- 
ra del programa. Los ficheros utilizados son de 
dos tipos: el primero (TABV y TABH) contiene las 
tablas de los valores normales, respectivamente, 


ESTRUCTURA DEL FICHERO Y PRINCIPALES FUNCIONES 


Generación 
vocabulario 
(menú voz 2) 


DE LA DATA BASE MEDICA 


Con esta subrutina se introducen 


los términos más corrientes 


SI Los datos al fichero 


Fichero vocabulario 
Longitud registro: 20 bytes 
Número registros; 20 


Actualiza el vocabulario 
y después el fichero datos 


Actualiza el fichero 
datos 


Fichero archivo 
Long. registro: 75 
Núm. registros: 100 


2011 


para varones y hembras; el segundo es un fiche- 
ro de datos y contiene los valores correspondien- 


tes a cada persona. 


Los procedimientos previstos son: 


Ml Gestión tablas: permite introducir o variar los 
datos de las tablas de valores normales, y tra- 


Vuelve al 


1 = Variación 
2 = Introducción 


menú principal 


baja en los ficheros TABV y TABH 
NN Gestión medidas: usada para la introdu 


la variación de las medidas, actúa en el 


identificado con el nombre de la persa 


El Análisis (gráficos): presenta, en un grá 


E Pone el flag a O 
Introducción 
Variación 
z NO 
1 


Impresión 


Si 
€ 


Ss 


“ED 


Vuelve al 


evolución de las medidas, indicando los 
mínimo/máximo de los valores normale 


DIAGRAMA DE LA SUBRUTINA DE GESTION DEL VOCABULARIO 


Las voces previstas son: 


Fin de tarea (con vuelta 
al menú principal) 


menú principal 


(*) En la llamada debe activarse un flag cón los significados 
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